单选题如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
单选题有如下的程序:
Private Sub Commandl_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Fun(k, m): Print P;
P=Fun(k, m): Print P
End Sub
Private Function Fun(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m/2
End Function
单击命令按钮后,输出结果为______
单选题下列符号( )是Visual Basic中的合法变量名。
单选题通过文本框的{{U}} {{/U}}属性可以获得当前插入点所在的位置。
A. Position
B. SelStart
C. SelLength
D. SelText
单选题窗体Form1上有1个名称为Text1的文本框,1个名称为Command1的命令按钮。为了使得程序开始运行后,直接把焦点移到文本框中,正确的事件过程为
单选题窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmdDraw的控件数组。窗体外观如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。有事件过程如下:PrivateSubcmdDraw_Click(IndexAsInteger)SelectCaseIndexCase0Shape1.Shape=0Case1Shape1.Shape=1Case2Shape1.Shape=3EndSelectEndSub当单击“画图”命令按钮时,会执行cmdDraw_Click事件过程。以下叙述中正确的是______。
单选题窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求程序运行时,单击命令按钮(如图所示),就可以把文本框中的内容写到文件Out.txt中,每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是()。
单选题文件列表框控件______属性用来确定在列表框中显示的文件类型。
单选题为了暂时关闭计时器,应把计时器的某个属性设置为Falss,这个属性是 ______ 。
单选题在窗体上画一个命令按钮,然后编写如下程序: Function fun1(ByVal Bum As Long)As Long Dim k As Long k=0 Bum=AbsfBum) Do While Bum k=k+(Bum Mod 10) Bum=Bum/10 Loop fun1=k End Function Private Sub Command1_Click( ) Dim n As Long n=InputBox("请输入一个数") Print fun1(n) End Sub 程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为______。
单选题下列是Visual Basic中所允许的形式数是( )。
单选题滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
单选题把窗体的Key Preview属性设置为True,然后编写如下过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyUp(KeyVode As Integer, ShiftAs Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后,如果按“A”键,则输出结果______。
单选题在Visual Basic中按文件的数据性质不同,可将文件分为
单选题在窗体上画一个名称为Command1的命令按钮,并编写如下事件过程:PrivateSubCommand1_Chck()x=1s=0Fori=1To5x=x/is=s+xNextPrintsEndSub该事件过程的功能是计算______。A.S=1+2+3+4+5B.C.D.
单选题为了在运行时能显示窗体左上角的控制框(系统菜单),可以设置以下哪个属性的值为True( )。
单选题设有下面程序代码:
Private Sub Command1_Click()
Dim a As Variant
a=Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64)
m=a(0)n=m
For k=1 To UBound(a)
If a(k)>m Then
n=m:m=a(k)
Else If a(k)>n And a(k)<>m Then
n=a(k)
End If
Next k
Print n
End Sub
程序运行时的输出是
单选题以下关于VB程序模块的描述中正确的是______。 A) 标准模块中的所有过程可以在整个工程文件的范围内被调用 B) 窗体模块Form1中的过程可以调用其他窗体中被声明为Public的通用过程 C) 如果工程文件中包含sub Main过程,则运行该工程文件时,一定先执行sub Main过程 D) 如果工程文件中不包含sub Main过程,则程序从第一个创建的窗体开始运行
单选题在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base
1 Dim e As Integer,d As Integer d=0
c=6 X=Array(2,4,6,8,10,12) For i=1 To
6 If X(i)>c Then d=d+X(i)
c=X(i) Else d=d-c Eles
If Next i Print d End
Sub 程序运行后,单击命令按钮,则在窗体上输出的内容为{{U}} {{/U}}。
A.10
B.12
C.16
D.20
单选题Visual Basic源程序的续行符为
