单选题为了用键盘打开菜单和执行菜单命令，第一步应按的键是 ( )
单选题输入VB源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用
单选题下列程序段的执行结果为______。Dim m(3，3)As IntegerDim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i= 0 To 3 For j= 0 To 3 x=x +m(i，j) Next Next Print x
单选题下面能够将某个变量声明为局部变量的是( )。
单选题在程序运行时，下面的叙述中正确的是( )。
单选题下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M
单选题设：a=12，b=5，c=7，表达式x=(a＼c+a Mod b)+Int(13／5)的值是
单选题有如下程序：
Private Sub Command1 Click()
Dim a As Single
Dim b As Single
a=5：b=4
Call S(a，B)
End Sub
Sub S(x As Single，y As Single)
t=x
x=t\y
y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为（ ）。
单选题窗体的单击事件过程如下：Private Sub Form_Click() x = InputBox("Input X:") Select Case Sgn(x) Case -1 Print "y="; x * Sgn(x) Case 0 Print "y="; Sgn(x) * 5 Case 1 Print "y="; x * Sgn(x) + 1 Case Else Print "y="; 10 End SelectEnd Sub运行程序时，单击窗体，以下叙述中错误的是
单选题已知有下面过程： Private Sub procl(a As Integer,b As String,Optional x As Boolean) End Sub 正确调用此过程的语句是______。 A) Call procl(3) B) Call procl 3,"xyz" ,True C) procl(5,"xyz" ,False) D) procl 12,"xyz/
单选题有如下事件过程： Private Sub Command1_Click() b=10 Do Until b =-1 a = InputBox("请输入a的值") a = Val(
单选题下列对于软件测试的叙述中正确的是
单选题在设计VB6应用程序界面时，改变窗体下面的（ ）属性看不到效果.
单选题工程文件的扩展名是
单选题现有以下程序：
Private Sub Command1 Click()
c1=0
c2=0
For i=1 To 100
If i Mod 3=0 Then
c1=c1+1
Else If i Mod 7=0 Then
c2=c2+1
End If
Next i
Print c1+c2
End Sub
此程序运行后输出的是在1～100范围内( )。
单选题代数式x1-lal+ln10+sin(x2+2π)/cos(57°)对应的Visual Basic表达式是( )。
单选题假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是( )。
单选题通过文本框的( )属性可以获得当前插入点所在的位置。 A) Position B) SelStart C) SelLength D) SelText
单选题下面控件中，没有Caption属性的是( )。
单选题在窗体上画1个名为Text1的文本框和1个名为Label1的标签，再画4个名为Op1的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句()。OptionBase1Dimsales(12)AsLongPrivateSubForm_Load()Open"c:/sales.txt"ForInputAs#1Fork=1To12Input#1，sales(k)NextkClose#1EndSubPrivateSub______(IndexAsInteger)DimsumAsLong，kAsInteger,monthAsIntegersum=0month=Index*______Fork=1To3month=month+1sum=sum+sales(month)NextkLabel1.Caption=______.Caption&"销售总额:"Text1=sumEndSub