单选题下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。清选择正确的程序段( ),完成程序。 Pnvae Sub Command1_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)______ Text1.Text=Text1.Text X Sum=Sum+X End If Next X Print Tab(20);"Sum=";Sum End Sub
单选题在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A. List
B. Index
C. Listindex
D. Tabindex
单选题在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(Keyascii as integer) End Sub 若焦点位于文本框中,则能够触发KeyPress事件的操作是 A) 单击鼠标 B) 双击文本框 C) 鼠标滑过文本框 D) 按下键盘上的某个键
单选题假定有如下情况语句:Select Case X能表示|X|>5的Case子句是
单选题设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
单选题软件测试是保证软件质量的重要手段,首要任务是______。
单选题以下关于过程的叙述中,错误的是( )。
单选题下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上","清华大学","天上人间","程序设计") forI=Lbound(a,1) to Ubound(a,1) ifleft(a(i),1)="天"then print a(i); nextI End Sub
单选题请阅读下面程序:
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m);
m=m+1
For j=1 To i
Print "*";
Next j
Print
Nexk i
End Sub
程序运行后,单击窗体,则输出结果是
单选题设有声明语句 Option Base 1 Dim b( -1 To 10.2 To 9.20) As Integer
单选题为了同时改变一个活动控件的高度和宽度,正确的操作是________。
A. 拖拉控件4个角上的某个小方块
B. 只能拖拉位于控件右下角的小方块
C. 只能拖拉位于控件左下角的小方块
D. 不能同时改变控件的高度和宽度
单选题下列关于栈的叙述中,正确的是
单选题设有如下程序: Option Base 1 Dim a(3, 4) As Integer, b(4, 3) As Integer Private Sub Command1_Click( ) '循环1 For i = 1 To 3 For j = 1 To 4 b(j, i) =a(i, j) Next j Next i '循环2 x=b(1, 1) For i = 1 To 4 For j = 1 To 3 Print b(i, j); if x<b(i, j) Then x=b(i, j) Next j Print Next i End Sub 程序中的数组a已被赋值。以下关于上述程序的叙述中,正确的是( )。 A) 窗体模块中,不能使用Dim声明a、b数组 B) “循环1”可以正常运行 C) “循环2”中循环变量i、j的终值不对,所以不能正常运行 D) 程序可以正常运行,x中保存的是数组b中所有元素中最小的数
单选题某二叉树的前序序列为ABCDEFG,中序序列为DCBAEFG,则该二叉树的后序序列为
单选题已知字符串A的值为“AdvancedEducation”,现要将它全部转化为大写字母并存放在A中,可以使用语句 _______。
单选题在窗体中添加一个命令按钮,然后编写如下代码:
Private Sub Command1_Click( )
For i=l To 4
x=4
For j=1 To 3
x=3
For k=l To 3
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是
单选题在窗体上画一个名为Command1的命令按钮,然后编写如下代码: Option Base1 Private Sub Command1 Click(1) Dim a a=Array(1,2,3,4):j=1 For i=4 To 1 Step-1 s=s+a(i)*j:j=j*10 Next i Print s End Sub 运行上面的程序,其输出结果是
单选题在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写下列程序: Private Sub Command1 click() A=InputBox("请输入日期(1~31)") t="旅游景点:"_ &Ⅱf(A>0 And A<=10,"长城","")_ &Ⅱf(A>10 And A<=20,"故宫","")_ &Ⅱf(A>20 And A<=30,"颐和园","") Text1.Text=t End Sub 程序运行后,如果从键盘输入5,则在文本框中显示的内容是( )。
单选题为了在按下Esc键时执行某个命令按钮的Click事件过程,需要将命令按钮的某属性值设置为True,该属性是( )。
单选题设有如下通用过程:Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x * yEnd Function在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x; yEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。