单选题为了用键盘打开菜单和执行菜单命令,第一步应按的键是______。
A.功能键F10或Alt
B.Shift+功能键F4
C.Ctrl或功能键F8
D.Ctrl+Alt
单选题下面程序计算并输出的是 Private Sub Command1_Click()
a=10:s=0 Do s=s+a*a*a:a=a-1
Loop Until a<=0 Print s End Sub
A. 13+23+33+…+103的值
B. 10!+…+3!+2!+1!的值
C. (1+2+3+…+10)3的值
D. 10个103的和
单选题以下能够正确退出循环的是( )。
单选题设有语句Open "C:/Test.Dat" For OutPut As #1,则下列叙述中错误的是( )。
单选题能够将组合框Combol中最后一个数据项删除的语句为
单选题在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为 Private Sub Comand1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+5 Next Next Next Print x End Sub
单选题设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是 ______。
单选题代数式x1-lal+ln10+sin(x2+2π)/cos(57°)对应的Visual
Basic表达式是{{U}} {{/U}}。
A.X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)
B.X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57*3.14/180)
C.X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)
D.X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57)
单选题以下关于VB文件的叙述中,错误的是______。
A.标准模块文件不属于任何一个窗体
B.工程文件的扩展名为.frm
C.一个工程只有一个工程文件
D.一个工程可以有多个窗体文件
单选题在窗体上画一个命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click() Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序,单击命令按钮,其输出结果是______ 。
单选题以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容,在横线处应填写( )。 Private Sub Command1_Click() X=Val(Text1.Text) If_____________Then Print x Else Text1.SetFocus Text1.Text="" End If End Sub
单选题复选框的Value属性为0时,表示该复选框( )。
A. 未被选中
B. 被选中
C. 框内有灰色的勾
D. 操作有误
单选题确定图片框Picture1在窗体上位置的属性是( )。
单选题阅读如下程序: Private Sub Form_Click() Dim num As Integer,digit As Integer num=InputBox("输入数据") Do While num <> 0 digit=num Mod 10 num=num/10 Print digit; Loop End Sub 程序运行后,如果从键盘上输入12345,则输出的结果为
单选题设窗体界面如图所示,则框架控件的Caption属性的值是______。
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编 写如下程序: Private Sub Command1_Click() Dim x,y,z As Integer x=5 y=7 z=0 Text1.Text="" Call P1(x,y,z) Text1.Text;Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是 ______。
单选题设有如下事件过程:Private Sub Form_Click() Sum=0 For k=1 To
3 If k<=1 Then x=1 ElseIf k<=2
Then x=2 ElseIf k<=3
Then x=3 Else x=4 End
If Sum=Sum+x Next k Print SumEnd
Sub程序运行后,单击窗体,输出结果是______。
A.9
B.6
C.3
D.10
单选题以下语句的输出结果是________。 a = Sqr(3) Print Format(a,"$$####.###")
单选题设有如下通用过程: Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程: Private Sub Commandl_Click() Dim arr(5)As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是______。
单选题在VB集成环境中要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是()。
