.
If a(k)>max Then max=a(k) End If Next k Print max End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是______。 A：把max=a(k)改为a(k)=max
B：把If a(k)>max Then改为If a(k) C：把第2个循环语句For k=1 To 10改为For k=2 To 10 D：把max=0改为max=a(10) 参考答案：D 2、设有语句：Open \，以下叙述中错误的是______。 A：执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息 B：用该语句建立的文件的文件号为1 C：该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息 D：若d盘根目录下无Test.txt文件，则该语句创建此文件 参考答案：C 3、工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是______。 A：Private Sub Command1_Click() Form2.Load End Sub B：Private Sub Command1_Click() Form2.Visible End Sub C：Private Sub Command1_Click() Load Form2 End Sub D：Private Sub Command1_Click() Form2.Show End Sub 参考答案：D 4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a . . a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是______。 A：12 B：1234 C：34 D：4321 参考答案：B 5、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是______。 A：Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub B：Private Sub Command1_Click() List1.Clear End Sub C：Private Sub Command1_Click() List1.RemoveItemList1.ListIndex End Sub D：Private Sub Command1_Click() List1.RemoveItem End Sub 参考答案：C 6、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的\改为汉字\框架\，下面正确的语句是______。 A：Frame1.Caption=\框架\ B：Frame1.Name=\框架\ C：Frame1.Text=\框架\ D：Frame1.Value=\框架\ 参考答案：A 7、设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件 . . File1.jpg，能实现此功能的语句是______。 A：Call LoadPicture(\ B：Picture1.Picture=LoadPicture(\ C：LoadPicture(\ D：Picture1.Picture=\ 参考答案：B 8、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。 A：Timer1.Interval=50 B：Timer1.Interval=5 C：Timer1.Interval=0.5 D：Timer1.Interval=500 参考答案：D 9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter=\ \ CommonDialog1.FilterIndex=3 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个\打开\对话框，此时在\文件类型\框中显示的是______。 A：Text Files(*.txt) B：AllFiles(*.*) C：Executable Files(*.exe) D：不确定 参考答案：C 10、在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = \ For n = 1 To 4 Print ______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 D CD . . BCD ABCD 则在______处填入的内容为。 A：Left(c,n) B：Right(c,n) C：Mid(c,n,n) D：Mid(c,n,1) 参考答案：B 11、在窗体上画一个名称为Label1、标题为\考试\的标签，两个名称分别为Command1和Command2、标题分别为\开始\和\停止\的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。 编写如下程序： Private Sub Form_Load() Timer1.Enabled=False End Sub Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left Label1.Left = Label1.Left + 20 Else Label1.Left=0 End If End Sub 程序运行后，单击\开始\按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是______。 A：单击\停止\按钮后再单击\开始\按钮，标签从停止的位置继续移动 B：标签的移动方向为自右向左 C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D：标签按指定的时间时隔移动 参考答案：B 12、执行下列语句 strInput=InputBox(\请输入字符串\字符串对话框\字符串\ 将显示输入对话框。此时如果直接单击\确定\按钮，则变量strInput的内容是______。 A：\请输入字符串\ B：空字符串 C：\字符串\ D：\字符串对话框\参考答案：C 13、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。 A：执行语句Picture1.Picture =\ . . B：执行语句Picture1.Picture = LoadPicture (\ C：选择图片框，然后按Del键 D：选择图片框，在属性窗口中选择Picture属性条，然后按回车键 参考答案：B 14、在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox(\请输入日期（1～31）\ t=\旅游景点：\ & IIf ( a > 0 And a <= 10,\长城\ & IIf ( a >10 And a <= 20,\故宫\ & IIf ( a > 20 And a <= 31,\颐和园\ Text1.Text = t End Sub 程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。 A：旅游景点：长城颐和园 B：旅游景点：长城故宫 C：旅游景点：颐和园 D： 旅游景点：故宫 参考答案：D 15、若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是______。 A：Variant B：String C：Boolean D：Integer 参考答案：A 16、有如下程序：： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。 A：30 B：12 C：24 D：18 参考答案：B 17、以下能从字符串\中直接取出子字符串\的函数是______。 A：String B：Mid C：Left D：Instr .