单项选择题
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Ptint
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为( )
A.2 0 0
0 4 0 0 0 6
B.2 0 4
0 4 0
4 0 6
C.2 3 0
3 4 0
0 0 6
D.2 0 0
0 4 5
0 5 6
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static Flag As Integer If Flag=0 Then Flag=1 Flag=-Flag If Flag=1 Then Text1.ForeColor=&HFF& '&HFF&为红色' Else Text1.ForeColor=&HCOO& '&HCOO&为绿色' End If End Sub 以下叙述中正确的是( )
A.每次执行此事件过程时,Flag的初始值均为0
B.Flag的值只可能取0或1
C.程序执行后,文本框中的文字每5秒改变一次颜色
D.程序有逻辑错误,Else分支总也不能被执行
点击查看答案&解析
单项选择题
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程: Private Sub Command1_Click() Dim a%,s%,k% s=1 a=2 For k=2 To 10 a=a*2 s=s+a Next k Text1.Text=S End 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.同时进行B、C两种修改
点击查看答案&解析
相关试题
窗体如下图左图所示。要求程序运行时,在文...
窗体的左右两端各有一条直线,名称分别为Li...
下列有关文件叙述中,正确的是( )
在窗体上画1个命令按钮和1个文本框,其名...
标准模块中有如下程序代码: Public x A...