A.①②③④⑤⑥
B.①②⑤
C.①②③④⑥
D.①②⑤⑥
A.-5
B.25
C.-1
D.1
A.0
B.5
C.6
D.7
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是()。
A.4
B.5
C.6
D.7
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程: Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为: 5 456 34567 2345678 123456789 请填空。
在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1,2,3,4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是()。
A、4321
B、12
C、34
D、1234
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图64-3所示。程序运行后,单击“计算”命令按钮,通过在对话框输人整数12,放入整型变量a中,然后计算a!(提示:运算结果应放入Long型变量中),在文本框中显示结果,如图64-4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程PutData,考生可以直接调用。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹中有一个工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有两个容器,其中一个容器中有两个单选按钮,另一个容器中有两个复选框,窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,则对文本框中的文字进行相应的设置,如图64-5所示。
窗体上的控件已经绘制出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮;必须通过单击窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,按原文件名并在原文件夹中保存修改后的文件。