考试网 >> IT认证 >> 等级 >> 二级考试 >> 计算机等级考试二级VB全真模拟卷（四）

发布时间：2006-06-27 23:35     点击：

Option Base 1 

Private Sub Form_KeyPress(KeyAscii As Integer) 

a = Array(237,126,87,48,498) 

m1 = a(1) 

m2 = 1 

If KeyAscii = 13 Then 

For i =2 To 5 

If a(i)>ml Then 

m1 =a(j) 

m2 =i 

End If 

Next i 

End If 

Print m1 

Print m2 

End Sub 

程序运行后，按回车键，输出结果为 

A) 48 B) 237 C) 498 D) 498 

4 1 5 4 

二、填空题（每空２分，共30分） 

请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。 

（1）设有如下的Visual Basic表达式： 

5 * x^2 – 3 * x – 2 * Sin(a)/3 

它相当于代数式【1】 。 

（2）执行下面的程序段后，s的值为 【2】 。 

s = 5 

For i = 2.6 To 4.9 Step 0.6 

s = s+1 

Next i 

（3）表达式Fix(-32.68)+Int(-23.02)的值为 【3】 。 

（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。 

（5）在窗体上画一个命令按钮，然后编写如下事件过程： 

Private Sub Command1_Click() 

a = InputBox("请输入一个整数") 

b = InputBox("请输入一个整数") 

Print a + b 

End Sub 

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。 

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。