单选题假定编写了如下4个窗体事件的事件过程，则运行应用程序并显窗体后，已经执行的事件过程是
单选题有如下程序：Function fun(ByVal aura As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)：num=num＼10 Loop fun=k End Function Private Sub Form_Click() Dim n As Integer，r As Integer n=InputBox("请输入一个数：")：n=Int(n)：r=fun(n)：Print rEnd Sub程序运行后，单击窗体，在输入对话框中输入246，输出结果为
单选题下列程序段的执行结果为a=1b=0Select Case a Case 1 Select Case b Case 0 Print"**0**" Case 1 Print"**1**" End SelectCase 2 Print"**2**"End Select
单选题VissualBasic6．0集成环境的主窗口中不包括( )。
单选题设有如下程序代码：Private Sub Command1_Click() Dim Sname As String, SNo As String, Score As Single Open "D:/Score.txt" __________ As #1 SNo = InputBox("输入学号：") Sname = InputBox("输入姓名：") Score = Val(InputBox("输入成绩：")) Print #1, SNo, Sname, Score Close #1End Sub以上程序的功能是，向文件D:/Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是( )。
单选题以下表达式与Int(3．5)的值相同的是
单选题在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名从列表框中消失,并在标签中显示出来。下列能正确实现上述操作的程序是【 】
单选题执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$， i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End Sub
单选题为把圆周率的近似值3．14159存放在变量pi中，应该把变量pi定义为
单选题下面的四个VB 6.0表达式语法正确的是 ______。
单选题设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是
单选题若有如下程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i = 1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+j End Function 单击命令按钮，执行程序，输出结果是( )。 A) 2 3 4 B) 3 4 5 C) 5 6 7 D) 3 5 6
单选题编写如下程序：Private Sub Commandl_Click()Dim n As Long，s As String n=InputBox("输入一个数") Do While n＜＞0 Print n＼10 Mod 10；：Print n Mod 10：：n=n＼100 Loop Print sEnd Sub程序运行后，单击命令按钮Commandl，并输入数值123456，则输出结果为
单选题在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter="All Files(*，*)|*.*|Text Files(*.txt)|*.txt|Executable_ Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是______。 A) All Files(*.*) B) Text Files(*.txt) C) Executable Files(*.exe) D) 不确定
单选题下列数据结构中，能够按照“先进后出”原则存取数据的是
单选题当复选框控件被选中（即复选框控件内显示"√"标记）时，其Value属性的值为( )
单选题文本框的Locked属性被设置为True后产生的效果是
单选题命令按钮Command1的单击事件过程如下： Private Sub Command1_Click() Dim a(10，10)As Integer x=0 For i=1 To 3 Forj=1 To 3 a(i，j)=i*2 Mod j Ifx
单选题窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程： Private Sub Option1_Click(Index As Integer) … End Sub 下面关于此过程的参数Index的叙述中正确的是( )。 A) Index为1表示单选按钮被选中，为0表示未选中 B) Index的值可正可负 C) Index的值用来区分哪个单选按钮被选中 D) Index表示数组中单选按钮的数量
单选题下列程序段的执行结果是______。 option base
1 private eommand1_c1ick ()
Dim A(10) Dim
E(5) For i = 1 To 10
A(i) = i
Next i For j = 1 To 5
B(j) = j * 20
Next j A(5) = B(2)
Print “A(5)=”; A(5) End sub
A. A(5)=20
B. A(5)=30
C. A(5)=40
D. A(5)=50