单选题下列关于水平滚动条的叙述中，错误的是( )。
单选题当前文件夹中设有一个文本文件File1.txt，并有下面程序代码：
Private Sub Command1_Click()
Dim ch As String
Open "File1.txt" For Input As #1
Do While Not EOF(1)
ch=Input(1,#1)
If "A"＜ch And ch＜"Z" Then
Print "
End If
Print ch;
Loop
Close #1
End Sub
上述代码运行时产生的结果是______。
单选题编写如下程序代码： Private Sub Command1_Click() Dim t As Integer Dim n As Integer，x As Integer t=0 For n=1 To 12 x=2*n一1 If x／3=x 3 Then t=t+1 Next Print t End Sub 程序运行后，单击命令按钮Command1，输出结果为( )。
单选题命令Picture1．Circle(500，800)，800能够在图片框Picture中画出的图形是______。
单选题执行下面的程序段后，x的值为______ 。 X=5 For i=1 To 20 Step 2 x=x+ i/5 Next i
单选题假定有以下循环结构 Do Until条件表达式 循环体 Loop 则以下描述中正确的是
单选题在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则横线处合适的语句是{{U}}
{{/U}}。 Private Sub Form_Click()
Open"C:/SDat.txt"For Output As I
For i=1 To 5
StuNo=InputBox("请输入学号")
StuName=InputBox("请输入姓名")
StuEndg=Val(InputBox("请输入英语成绩")) Next
i Close #1 End Sub
A.Input#1,StuNo,StuName,StuEndg
B.Put#1,StuNo,StuName,StuEndg
C.Write#1,StuNo,StuName,StuEndg
D.Get#1,StuNo,SmName,StuEndg
单选题若要获得组合框中输入的数据，可使用的属性是______。
单选题设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Commandl Click() StatiC b As Variant b=Array(1，3，5，7，9) ... End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是A) For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextB) For i=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextC) For i-0 To 5/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextD) For i=1 To 5/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
单选题在列表框中，当前被选中的列表项的序号由下列( )属性表示。 A) List B) Index C) ListIndex D) TabIndex
单选题在窗体上画一个命令按钮，并编写如下事件过程： Private Sub
Command1_Click() For i=3 To 1 Step-0.4 Ptint
Int(i)； Next i End Sub
运行程序，单击命令按钮，窗体上显示的内容为______。
A. 3 2 2 2 1 1
B. 3 2 2 1 1 1
C. 3 2 2 1 1
D. 3 2 1 1 1
单选题向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的那项可以使程序功能完整。 Private Sub Command1_Click() Open"c:/Temp.txt"，Output As #1 For i=0 To 3 ______ Next Close #1 End Sub
单选题下列程序执行后，变量S的值为______ 。
Dim s As Long，X As Integer
s=0
X=1
Do While x＜10
s= s+ x
x=x+2
Loop
Print s
单选题下列是Visual Basic中所允许的形式数是( )。
单选题下列关于结构化设计方法的特点描述中，不正确的是
____
。
单选题下列程序的功能是：调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击。“确定”按钮退出对话框，则将发生哪些变化( )。 Private Sub Command1_Click() CommonDialogl.CancelError=True CommonDialogl.Flags=3 On Error Resume Next CommonDialogl.ShowFont Textl.Font.Name=CommonDialogl.FontName Textl.Font.Size=CommonDialogl.FontSize Textl.Font.Bold=CommonDialogl.FontBold Textl.Font.Italic=CommonDialogl.FontItalic Textl.Font.Underline=CommonDialogl.FontUnderline Textl.FontStrikethru=CommonDialogl.FontStrikethru Textl.ForeColor=CommonDialogl.Color End Sub
单选题为了使标签Labell透明且不具有边框，以下正确的属性设置是
单选题把窗体的KeyPreview属性设置为True，然后编写如下过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Prirate Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后，如果按“A”键，则输出结果为
单选题执行下面的程序段后，x的值为 ______。 x=5 For I=1 To 20 Step 2 x=x+I/5 Next I
单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As label，ByVal a As Integer) L.Caption ="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，