.
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 .