单项选择题

在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Command1_Click()
s=0
For i=1 To 15
x=2*i-1
if x Mod 3=0 Then s=s+1
Next i
Labe11.Caption=s
End Sub
程序运行后,单击命令按钮,则标签中显示的内容是______。

A.1
B.5
C.27
D.45
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Labe11、Labe12的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_C1ick() X=5:Y=3 Call proc(X,Y) Labe11.Caption=X Labe12.Caption=Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是______。
A.5和3
B.25和3
C.25和6
D.5和6
单项选择题
下列关于文件的叙述中,错误的一条是______。
A.在随机访问模式下,文件中的每条记录的长度可以不同
B.在对文仆进行任何操作之前,必须事先打开文件
C.LOF()函数返回文件的字节数,如果返回0,表示该文件是一个空文件
D.在二进制访问模式中,可以把文件指针移到文件的任何地方
相关试题
  • 在窗体上画一个命令按钮,然后编写如下事件...
  • 执行下面的程序,当输入3时,输出的结果是...
  • 在Visual Basic 程序启动运行中设置一个...
  • 在Visual Basic工程prjl中包含有两个窗体...
  • 关系模型的数据约束通常由3类完整性约束提...