单项选择题

在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i=1 To 20 step 2
x=0
For j=i To 20 step 3
x=x+1
Next j
Next i
Text1.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是______。

A.1
B.7
C.17
D.400
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32 Call Proc(x,y) Debug.Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是______。
A.2 32
B.12 3
C.2 2
D.12 32
单项选择题
如果X是一个正的实数,保留两位小数、将千分位四舍五入的表达式是______。
A.0.01*Int(X+0.05)
B.0.01*Int(100%(X+0.005))
C.0.01*Int(X+0.005)
D.0.01*Int(100%(X+0.05))
相关试题
  • 修改窗体“brow”,取消“记录选择器”和“...
  • 在窗体对象“fEmp”上有“刷新”和“退出”...
  • 建立“线路”、“团队”和“游客”3表之间...
  • 将窗体对象“fEmp”上名称为“tPa”的文本...
  • 以表对象“tB”为数据源创建一个交叉表查询...