单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() aS=InputBox(”请输入一个二进制数”)：n=Len(a$) For i=1 To n Dec=Dec*2+______(a$，i，1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是
单选题设：a=12，b=5，c=7，表达式 x=(a/c＋a Mod b)+Int(13/5)的值是______。
A.5
B.6
C.7
D.9
单选题为了把命令按钮设置为图形格式，其Style属性值为( )。
单选题输入VB源程序时，若一个命令行中包含两个语句，则两个语句之间的分隔符应使用
单选题以下关于命令按钮的叙述中正确的是( )。
单选题当Visual Basic表达式中含有以下多种运算时( )。①关系运算 ②算术运算 ③逻辑运算 ④函数运算正确的运算顺序为( )。
单选题设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是( )。
单选题改变驱动器列表框的Drive属性值将激活______事件。
A. Change
B. Scroll
C. KeyDown
D. KeyUp
单选题下面是求最大公约数的函数gcd的首部 Function gcd(ByVal x As Integer,
ByVal y As Integer) As Integer 若要输出8、12、16这3个数的最大公约数，下列语句中正确的是
A. Print gcd (8,12), gcd(12,6), gcd(16,8)
B.Print gcd (8,12,16)
C. Print gcd (8), gcd(12), gcd(16)
D.Print gcd (8, gcd(12,16))
单选题在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中，数据独立性最高的阶段是______。 A) 数据库系统 B) 文件系统 C) 人工管理 D) 数据项管理
单选题下面哪个属性不是框架控件的属性( )。
单选题在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(见下图)。下而能实现此功能的事件过程是______。
单选题设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print"程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是______。
单选题为了使文本框只具有垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为( )。 A) 0 B) 1 C) 2 D) 3
单选题下列关于MDI子窗体在运行时特性的叙述错误的是( )。
单选题以下关于变量类型说明符的使用正确的是
____
单选题下述程序的功能是______。 x="((a+B) *
单选题以下过程的功能是从数组中寻找最大值： Private Sub FindMax(a() As Integer,ByRef Max As Integer) Dim S As Integer,fAs Integer：Dim i As Integer S=LBound(a):f=UBound(a) Max=a(s) For i=S To f Ifa(i)>Max Then Max=a(i) Next End Sub 以下关于上述过程的叙述中，错误的是
单选题以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。PrivateSubCommand1_Click()IfNotCheck(Combo1.Text)ThenMsgBox("输入错误")ExitSubEndIfFork=0ToCombo1.ListCount-1IfCombo1.Text:Combo1.List(k)ThenMsgBox("添加项目失败")ExitSubEndIfNextkCombo1.AddltemCombo1.TextMsgBox("添加项目成功")EndSubPrivateFunctionCheck(chAsString)AsBooleann=Len(ch)Fork=1Tonc$=UCase(Mid(ch,k,1))IfC＜"A"OrC＞"Z"ThenCheck=FalseExitFunctionEndIfNextkCheck=TrueEndFunction程序运行时，如果在组合框的编辑区中输入"Java"，则单击命令按钮后产生的结果是______。A)没有任何显示B)显示"输入错误"C)显示"添加项目失败"D)显示"添加项目成功/
单选题如果有一个菜单项，名称为MenuItem，为了运行时使该菜单项失效(变灰)，应使用的语句为______。