单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() Dim num Ag Integer
num=1 Do Until num＞6
Print num: num=num+2.4
Loop End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A. 13.45.8
B. 135
C. 1 4 7
D. 无数据输出
单选题窗体上有一个命令按钮和一个列表框(Sorted属性为True)，执行下列过程后的输出结果是( )。 Private Sub Command1_Click() List1.AddItem"China" List1.AddItem"Great" List1.AddItem"Is",1 List1.AddItem"!",3 Print List1.List(2) End Sub
单选题下面的程序是利用公式：π=4-4/3+4/5-4/7+4/9-4/11+…计算机π的近似值Pvivate Sub
Command1_Click() Dim PI As Double, x As Double, k As Long, sign As
Integer sign=1 k=1 PI=0 Do x=sign*4/(2*k-1)
PI=PI+x
k=k+1
sign=________________ Loop Unti1 Abs(x)＜0.000001 Print PIEnd
Sub在空的处应填写的是______。
A.sign+1
B.-sign
C.x
D.k
单选题复选框的Value属性为0时，表示( )。 A) 复选框未被选中 B) 复选框被选中 C) 复选框内有灰色的勾 D) 复选框操作有误
单选题窗体上有单选按钮和列表框控件。单击名称为Option1、标题为“国家”的单选按钮，向列表框中添加国家名称，如图所示。Option1的单击事件过程如下：PrivateSubOption1_Click()Dimarrarr=Array("中国","日本","德国","美国","澳大利亚")List1.ClearFori=0ToUbound(arr)List1.AddItemarr(i)NextEndSub以下关于上述代码的叙述中，正确的是______。
单选题窗体上有一个名称为Command1的命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim arr_x(5,5)As Integer
For i=1 To 3
For j=2 To 4
arr_x(i,j)=i*j
Next j
Next i
Print arr_x(2,1);arr_x(3,2);arr_x(4,3)
End Sub
运行程序，并单击命令按钮，窗体上显示的内容为______。
单选题Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim a As Integer,b As Integer,c As Integer,flag As Boolean flag=False a=1:b=1 Do While x＜b c=a+b:a=b:b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是( )。
单选题设菜单编辑器中各菜单项的属性设置如下表所示针对上述属性设置，以下叙述中错误的是
单选题设x是整型变量，与函数IIf(x>0，一x，x)有相同结果的代数式是( )。
单选题有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer Sum=0 For i=2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为( )。 A) 12 B) 30 C) 24 D) 18
单选题假设有文件列表框File1、驱动器列表框Drivel和目录列表框Dirl，为了使三者同步，在下列语句中，正确的语句是 ______。 Ⅰ．File1. Path=Did.Path Ⅱ．File1. FileName=Dirl.FileName Ⅲ．Dirl.Path=Drivel.Drive Ⅳ．Dirl. Path=Drivel. Path
单选题以下不属于Visual Basic数据文件的是
单选题下列有关数据库的叙述，正确的是
____
单选题如果要创建一个3级数据分组报表，第1个分组表达式是"部分"，第2个分组表达式是"性别"，第3个分组表达式是"基本工资"，则当前索引的索引关键字表达式应该是( )
单选题在窗体上画一个名称为Label1、标题为"VisualBasci考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并将其Interval属性设置为500。界面如下图所示。编写如下程序:PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left＜WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后单击"开始"按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是______。
单选题有如下程序： DefStr X-Z X="123" Y="456"， Z=X$+Y$ Print ZS End 运行后，输出结果是( )。
单选题下列程序段的执行结果为_______。 N=0 For I=1 To 3 For J=5 To 1 Step -1 N=N+1 Next J Next I Print N；J；I
单选题假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为______。
单选题假定已经定义了一个过程SubAdd(a As Single,b As Single)，则正确的调用语句是( )。
单选题在窗体上画一个名称为Drive1的驱动器列表框，—个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是