单选题下列表达式中,在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文件
单选题以下关于多重窗体的叙述中,错误的是
单选题下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。清选择正确的程序段( ),完成程序。 Pnvae Sub Command1_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)______ Text1.Text=Text1.Text X Sum=Sum+X End If Next X Print Tab(20);"Sum=";Sum End Sub
单选题在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A. List
B. Index
C. Listindex
D. Tabindex
单选题在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(Keyascii as integer) End Sub 若焦点位于文本框中,则能够触发KeyPress事件的操作是 A) 单击鼠标 B) 双击文本框 C) 鼠标滑过文本框 D) 按下键盘上的某个键
单选题假定有如下情况语句:Select Case X能表示|X|>5的Case子句是
单选题设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
单选题软件测试是保证软件质量的重要手段,首要任务是______。
单选题以下关于过程的叙述中,错误的是( )。
单选题下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上","清华大学","天上人间","程序设计") forI=Lbound(a,1) to Ubound(a,1) ifleft(a(i),1)="天"then print a(i); nextI End Sub
