vb程序 求代码注释 求答案 谢谢

工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:
Public x As Integer
Private y As Integer
窗体文件的程序代码是:
Dim a As Integer
Private Sub Form_Load()
Dim b As Integer
a=2:b=3:x=10:y=20
End Sub
Private Sub Command1_Click()
a=a+5:b=b+5:x=x+5:y=y+5
Print a;b;x;y
End Sub
运行程序,单击窗体上的命令按钮,则在窗体上显示的是

'工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是:
Public x As Integer ’定义一个全局变量x
Private y As Integer '定义一个模块级变量y
窗体文件的程序代码是:
Dim a As Integer '定义一个模块级变量a
Private Sub Form_Load()
Dim b As Integer ‘定义一个局部变量b
a=2:b=3:x=10:y=20
End Sub
Private Sub Command1_Click()
a=a+5:b=b+5:x=x+5:y=y+5 'x,y由于没有用Module1.a这类的引用,所以失效。
'b由于是局部变量,所以被销毁
Print a;b;x;y
End Sub
'答案:7 5 5 5
温馨提示:内容为网友见解,仅供参考
无其他回答

vb程序 求代码注释 求答案 谢谢
Public x As Integer ’定义一个全局变量x Private y As Integer '定义一个模块级变量y 窗体文件的程序代码是:Dim a As Integer '定义一个模块级变量a Private Sub Form_Load()Dim b As Integer ‘定义一个局部变量b a=2:b=3:x=10:y=20 End Sub Private Sub Command1_Click()a...

vb程序 求解 求代码注释 谢谢
Private X As Integer '定义一个整数私有变量x Private Sub Command1_Click()'按钮单击过程 X=5:Y=3 '初始化 Call proc(X,Y) '呼叫子程序。2个整形传值参数,Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer,ByVal b As Integer)X=a*a 'a=5,所以x=25...

vb程序 求代码注释 谢谢
Option Base 1 数组下标从一开始 Dim a(5, 8) As Single, athlete(5) As String * 8 定义单精度浮点型数组A,第一维1-5,第二位1-8,定义8长度字符串数组第一维1-5 Private Sub Command1_Click()Dim ch As String 定义 Text1 = "" 置空文本框 Open App.Path & "\\in5.dat" ...

vb程序 求代码注释,谢谢
FindMin函数是用来找到一个数组中最小的值 Private Function FindMin(a() As Integer)Dim Start As Integer Dim Finish As Integer, i As Integer Start = LBound(a) 得到该数组的下界 Finish = UBound(a)得到该数组的上界 Min = a(Start) 得到a数组的第一个元素 For i = Start To Finish ...

vb程序 求代码注释,谢谢啦
Private Sub Command1_Click()‘按钮1单击事件 n=Val(Text1.Text)’将text1.text转换为数值赋给n For i=2 To n'循环2到n For j=2 To Sqr(i)'循环2到i的开方 If i Mod j=0 Then Exit For'如果i是j的倍数,退出j循环 Next j‘j循环尾部 If j>sqr(i) Then Print i’如果j大于i...

VB 求代码?最好有注释,谢谢!
Private Sub Command1_Click() Dim items items = Split(Text2.Text, vbCrLf) '分隔文本行为数组 Dim item Dim Text As String For Each item In items '检索数组元素 If InStr(Text1.Text, item) > 0 Then 'text1中查找item Text = Text & vbCrLf & item '查找到即...

VB代码求注释
Dim CTS As Integer '定义变量 '可以这样写: dim COL ,CTCO ,CTS as integer Private Sub Form_Activate() '当窗口激活时 SUCCESS = sndPlaySound(App.Path + "\\sound\\start.WAV", &H1) '把 SUCCESS 作为返回值 ,并执行 sndPlaySound 子程序或自定义函数 End Sub Private Sub Form...

vb代码求注释呀,有个地方看不明白,求大神指点
Exit For End If Next b 这段代码,从2到a-1依次与a进行取余运算,只有当这所有取余结果都不为零(即不能整除)时,可判断a为素数。而这时,b刚好和a的值相等。 如果中途有任何一个数取余为零,立即中止判断(根据定义,只要有一个数能被整除,它就不是素数,没有必要再判断下去),这时退出...

求VB代码希望有注释
j = 2 '定义开始的后面那个数值 For i = 2 To 6 '开始循环行 For temp = 1 To 5 '循环每个点 If temp >= i Then '判断是输出一还是后面的数值 temp2 = temp2 & i & " "Else temp2 = temp2 & "1 "End If Next temp Print temp2 ‘输出一行 temp2 = ""Next i ’循环行 ...

VB代码求注释 最好每行都注释了 谢谢各位高手了 !
lv.GridLines = True '显示格线 lv.FullRowSelect = True '整行选择模式 lv.View = lvwReport ’设置视图为列表视图 rs.Open "select * from 入库", Cnn '运行查询 For i = 0 To rs.Fields.Count - 1 ’for循环,所有记录表的字段 Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i...

相似回答