单选题有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (
单选题以下不能设置Picture属性的控件是( )。
单选题窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1．txt的内容写到文件f2．txt中，然后将f1．txt删除。命令按钮的单击事件过程如下： Private Sub Command1_Click() Open"c：＼f1．txt"For Input As #1 Open"c：＼f2．txt"For OutputAs #2 Do While Not EOF(2) Line Input #1，str1 Print #2，str1 Loop Close Kill"c：＼f1．txt" End Sub 该程序运行时发生错误，应该进行的修改是
单选题窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
CommandDialog1.DefaultExt=”doc”
CommandDialog1.FileName=”VB.txt”
CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|”
CommandDialog1.FileName=1
CommandDialog1.ShowSave
End Sub
运行上述程序，如下叙述正确的是（ ）。
单选题阅读程序：
Private Sub Form Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是( )。
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1．Filter="All File |*．*|Text File|*．txt|PPT|*．ppt" CD1．FilterIndex=2 CD1．InitDir="C：＼" CD1．FileNarne="default" CD1．ShowSave End Sub 关于上述过程，以下叙述中正确的是( )。
单选题在窗体上画一个名称为text1的文本框和一个名称为label1的标签，要求如下程序运行时，在文本框中输入的内容立即在标签中显示，在下划线上填入的内容是( )。 Private Sub Text1______ Label 1.Caption=Text1.Text End Sub
单选题窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的是______。A)在设计该弹出菜单的主菜单项时，在菜单编辑器窗口去掉了"可见"前面的"√"B)在设计"选中"菜单项时，在菜单编辑器窗口中设置了"复选"属性(有"√")C)在设计"粘贴"菜单项时，在菜单编辑器窗口中设置了"有效"属性(有"√")D)菜单中的横线是在该菜单项的标题输入框中输入了一个"-"(减号)字符
单选题设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝"" strL＝Len(xStr) i＝strL / 2 Do While i＜＝strL tStr＝tStr & Mid(xStr， i＋1， 1) i＝i＋1 Loop Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click() Dim S1 As String S1＝"ABCDEF" Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是( )。
单选题设有声明语句： Dim b(—1 To 10，2 To 9，20)As Integer 则数组b中全部元素的个数为( )。
单选题对窗体编写如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______ 。 A) AAAAA BBBBB B) BBBBB C) AAAAA D) BBBBB AAAAA
单选题窗体上的三个命令按钮构成名称为Command1的控件数组。如图所示。程序如下：PrivateSubCommand1_Click(IndexAsInteger)IfIndex=1ThenPrint"计算机等级考试"EndIfIfIndex=2ThenPrintCommand1(2).CaptionEndIfEndSub运行程序，单击“命令按钮2”，则如下叙述中正确的是()。A)Printcommand1(2).Caption语句有错B)在窗体上显示“命令按钮2”C)在窗体上显示“命令按钮3”D)在窗体上显示“计算机等级考试”
单选题由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得f(x0)=0(该点称为“零点”)。设有VB函数：Private Function f(x As Single) As Single可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。Private Sub Commandl_Click() Dim x1 As Single，x2 As Single x1=InputBox("请输入一个实数x1“) x2=InputBox("请再输入一个实数x2””)If(_________)Then Print"在"；x1；"与"；x2；"之间存在零点" Else Print"不能确定在"；x1；"与"；x2；"之间是否存在零点" End If End Sub Private Function f(x As Single)As Single …… End Function为使上面程序可以实现该功能，程序代码中横线处应填写的代码是
单选题若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指
单选题窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Text1.Text=Fun2(Fun1(x),y)Text2.Text=Fun1(x)EndSubPrivateFunctionFun1(xAsInteger)AsIntegerx=x+y:y=x+yFun1=x+yEndFunctionPrivateFunctionFun2(xAsInteger，yAsInteger)AsIntegerFun2=2*x+yEndFunction当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是______。A．B．C．D．
单选题窗体上有一个名称为VScroll1的滚动条，当用鼠标拖动滚动条中的滚动块时，触发的事件是
单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(" ") If y.a/2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是______。 A) x是用户定义的类型 B) InputBox函数弹出的对话框中没有提示信息 C) 若输入的是偶数，y.b的值为该偶数的平方 D) Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回
单选题使用Line控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是( )。
单选题把窗体的KeyPreview属性设置为True。然后编写如下事件过程Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))Print Chr(KeyAscii+2)
单选题在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是( )。 A) Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub B) Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub C) Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub D) Private Sub Text1_SetFocus() Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub