单项选择题

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1 TO 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)>xThen Print a(i) Next i End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是

A.1 2
B.1 2 3
C.3 4 5
D.4 5
<上一题 目录 下一题>
热门 试题

单项选择题
阅读程序: Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 TO 10 If arr(i) 3=arr(i) 3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为
A.13
B.14
C.27
D.15
单项选择题
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click( ) CommonDialog1.FileName= CommonDialog1.Hker= All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt CommonDialog1.Filtefindex=2 CommonDialog1.DialoSTitle= VBTest CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述中错误的是
A.该对话框被设置为“打开”对话框
B.在该对话框中指定默认文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Tx
相关试题
  • 在窗体上画两个名称分别为Command1和Comma...
  • 在窗体上画一个名称为“Command1”、标题...
  • 阅读程序:Option Base 1Private Sub ...
  • 本程序的功能是利用随机数函数模拟投币,方...
  • 在关系模型中,把数据看成一个二维表,每一...