当前位置 > vb程序视频vb程序视频教程
-
VB程序设计模拟监控程序
Dim Cnt As Integer '计数 Dim Tmp As Integer '随机点 Dim JX As Integer '画点间距 Private Sub Form_Load() JX = 2 End Sub Private Sub Timer1_Timer() Dim Lin As Integer Dim V1, V2 As Integer lbNow = Now '采集数据 Lin = txtData.Text V1 = (300 Lin) \ 2 5 Randomize Tmp = Int(Rnd * 2...
2024-07-24 网络 更多内容 771 ℃ 350 -
VB自学视频教程
8623779 VB 6年老群 群论坛有初学者教程
2024-07-24 网络 更多内容 500 ℃ 919 -
vb程序设计—过程
1.编写产生随机整数的Function过程,调用该过程输出30个1～100之内的随机数。 Private Sub Command1_Click() For i = 1 To 30 Print abc; If i Mod 10 = 0 Then Print Next End Sub Private Function abc() As Integer Randomize abc = Int(Rnd * 100) + 1 End Function 2.编写Sub过程或Func...
2024-07-24 网络 更多内容 486 ℃ 147 -
VB视频教程下载
http://www.***.com/book/Soft/1564.htm
2024-07-24 网络 更多内容 303 ℃ 343 -
求:VB程序设计
Private Sub Combo1_Click()If Combo1.Text = "*.txt" Or "*.rtf" ThenFile1.Pattern = "*.txt;*.rtf"ElseFile1.Pattern = "*.avi;*.mp3"End IfEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1End SubPrivate Sub Drive1_Change()On Error GoTo IFerrD...
2024-07-24 网络 更多内容 378 ℃ 58 -
谁能给我发一些vb 代码和教学视频
刚刚发送QQ邮箱word文档面集量vb代码及解析 望查收
2024-07-24 网络 更多内容 663 ℃ 644 -
vb程序设计
先清楚一点y是全局变量!当没有对y赋值的时候,默认值为0。 在执行Command1_click()时,先执行Fun1(x) x=2;y=2 Fun1=4; 再执行Fun2(4,2) 可得Fun2=4*2+2=10 则Text1显示10; 再执行Fun1(x),这时x=2;y因为是全局变量所以这时y不是0,而是2; 接下来就可得到x=x+y=2+2=4;y=x+y=4+2=6 ...
2024-07-24 网络 更多内容 494 ℃ 681 -
vb6.0视频教程
程序整体没错,但是有些小纰漏。 1、你的分号应该是英文半角状态下输入的。 2、VB中缺少一些字体库,魏碑就没有。 修改为: Private Sub Form_Click() Print: Print FontName = "黑体" FontSize = 16 Print "姓名"; Tab(8); "年龄"; Tab(16); "职务&quo...
2024-07-24 网络 更多内容 447 ℃ 567 -
vb程序设计
Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer i = 1 Do j = i ^ 2 If j > 125 Then Exit Do Print j; i = i + 1 Loop End Sub 回答完毕 期待被采纳。
2024-07-24 网络 更多内容 470 ℃ 770 -
VB编程
Private Sub Form_Load()Me.AutoRedraw = TrueMe.WindowState = 2For a = 1 To 40For b = 1 To 40For c = 1 To 40 d = 4.2 * a + 4.9 * b + 5.6 * c If d >= 198 And d <= 200 And a + b + c = 40 Then x = x + 1 Print "方案:" & Format(x, "00") & " 金额:" & d...
2024-07-24 网络 更多内容 782 ℃ 391