单选题Mid("Hello Everyone",7,3)的执行结果是( )。 A) yon B) every C) Eve D) one
单选题下列程序的执行结果为（ ）。
Private Sub Command1_Click()
Dim FirStr As String
FirSt="abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String)As String
Dim tempStr As String，strLen As Integer
tempStr=" "
strLen=Len(xStr)
i=1
Do While i<=Len(xStr)-3
tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen -i+1，1)
i=i+1
Loop
Pat=tempStr
End Function
单选题使用ReDim Preserve可以改变数组的
单选题在窗体有一个水平滚动条名为Hscrolll，其属性设置如下： LargeCh8nge=15,
SmallChange=3, Max=100，Min=20，Value=45 现单击该滚动条向右的箭头，Value的值将变为
______。
A.45
B.60
C.48
D.100
单选题软件测试的过程是______。a．验收测试 b．集成测试 c．单元测试 d．系统测试
A.a、b、c、d
B.d、c、b、a
C.b、a、d、c
D.c、b、a、d
单选题以下程序段的输出结果是( )。
x=1
y=4
Do Until y>4
x= x * y
y=y+1
Loop
Print X
单选题已知变量x，y为整数型，且x=4，y=12，s为字符串型，且s=“a”，lblok为标签控件，下列赋值语句合法的是______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
Dim i As Integer, m As Integer, index As Integer
a = Array(-10, 23, -50, 90)
m = a(LBound(A))
index = LBound(A)
For i = LBound(A) To UBound(A)
If a(i) < m Then
m = a(i)
index = i
End If
Next i
Print index
End Sub
程序运行时，单击Command1，则在窗体上输出的结果是
单选题下列表达式中，在Visual Basic中不合法的函数是______。
单选题有如下程序： Private Sub Form_Click() Dim s As Integer，p As Integer p=1 For i=1 To 4 For j=1 To i s=s+j Next j p=p * s Next i Print p End Sub 程序运行后，单击窗体，则输出结果是( )。
单选题以下程序运行后的窗体如下图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。PrivateSubCoraraand1_Click()IfNotCheck(Combo1.Text)ThenMsgBox("输入错误")ExitSubEndIfFork=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List(k)ThenMsgBox("添加项目失败")ExitSubEndIfNextkCombo1.AddItemCombo1.TextMsgBox("添加项目成功")EndSubPrivateFunctionCheck(chAsString)AsBooleann=Len(ch)Fork=1Tonc$=UCase(Mid(ch,k,1))Ifc＜"A"Orc＞"Z"ThenCheck=FalseExitFunctionEndIfNextkCheck=TrueEndFunction程序运行时，如果在组合框的编辑区中输入“JaVa”，则单击命令按钮后产生的结果是______。
单选题目录列表框的Path属性的作用是 A．显示当前驱动器或指定驱动器上的路径 B．显示当前驱动器或指定驱动器上的某目录下的文件名 C．显示根目录下的文件名 D．只显示当前路径下的文件
单选题编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住＜Shift＞键也未锁定大写键时)运行程序，如果按键盘上的＜A＞键，则程序输出的结果是( )。
单选题Label控件中内容能垂直方向变化而宽度保持不变则应设置______ 属性。
单选题有下面程序代码：
Private Sub Command1_Click()
Dim a As String
a="COMPUTER" n=search(a, "T"):Print IIf(n=0, "未找到", n)
End Sub
Private Function search(str As String, ch As String)As Integer
For k=1 To Len(str)
c=Mid(str, k, 1)
If c=ch Then
search=k:Exit Function
End If
Next k
search=0
End Function
程序运行后，单击命令按钮Command1，输出结果是
单选题在E盘当前目录文件夹下建立一个名为“Student．txt”的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String*10 StuGrade As String*10 StuAge As Integer End Type Privme Sub Form_Click() Dim s As student Open"c：Mtudent．txt"For Random As #1 Len=Len(s) For i=l To 5 s．StuName=InputBox("请输入姓名") s．StuGrade=InputBox("请输入年级号") s．StuAge=Val(1nputBox("请输入年龄")) ____________ Next i Close #1 End Sub
单选题编写如下事件过程： Private Sub Form KeyDown (KeyCode As Integer, Shift As Integer) Print Chr (KeyCode) End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序，若按“T”键，则程序输出的结果是
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function Func(ByVal x As Integer，y As Integer)
y=x*y
If y＞0 Then
Func=x
Else
Func=y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer，b As Integer
a=3
b=4
c=Func(a，B)
Print"a="；a
Print"b="；b
Print"C="；c
End Sub
程序运行后，单击命令按钮，其输出结果为：_______。
单选题以下各项中，Visual Basic不支持的图形文件是 A) .ico文件 B) .jpg文件 C) .psd文件 D) .bmp文件
单选题以下关于多重窗体的叙述中，错误的是