单项选择题
标准模块中有如下程序代码:
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮,并有如下事件过程:
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮,窗体上显示的是______。
A.100 100
B.100 120
C.110 100
D.110 120
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:Private Sub Command1 Click()Dim a&,s&,k&s=1a=2For k=2 To 10a=a*2s=s+aNext kText1.Text=sEnd Sub执行此事件过程后发现结果是错误的,为能够得到正确结果,应做的修改是______。
A.把s=1改为s=0
B.把For k=2 To 10改为For k=1 To 10
C.交换语句s=s+a和a=a*2的顺序
D.把For k=2 To 10改为For k=1 To 10,交换语句s=s+a和a=a*2的顺序
点击查看答案&解析
单项选择题
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:Private Sub Timer1_Timer()Static flag As IntegerIf flag=0 Then flag=1flag=-flagIf flag=1 ThenText1.ForeColor=&HFF& &HFF&为红色ElseText1.ForeColor=&HC000& &HC000&为绿色End IfEnd Sub以下叙述中正确的是______。
A.每次执行此事件过程时,flag的初始值均为0
B.flag的值只可能取0或1
C.程序执行后,文本框中的文字每5秒改变一次颜色
D.程序有逻辑错误,Else分支总也不能被执行
点击查看答案&解析
相关试题
向顺序文件Temp.txt中写入1、2、3这3...
在Visual Basic中,要将一个窗体从内存中...
Print方法可以在对象上输出数据,这些对象...
编写如下事件过程:Private Sub Form_Ke...
阅读程序:Function Fun(a As Integer...