第三部分 全国计算机等级考试模拟试卷及参考答案(7)

Loop

Text1.Text=Str(n) Text2.Text=Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。 A) 1和0 B) 2和72 C) 3和50 D) 4和168

(19) 用下面语句定义的数组的元素个数是（ ）。 Dim A (-3 To 5) As Integer A) 6 B) 7 C) 8 D) 9

(20) 以下程序的输出结果是（ ）。 Option Base 1

Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5

For i=1 To 10 a(i)=i Next i

For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i Print k End sub

A) 33 B) 28 C) 35 D) 37

(21) 在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1

Private Sub Command1_Click() Dim a

a = Array(1,2,3,4) j = 1

For i = 4 To Step -1 s = s + a(i)*j j =j*10 Next i Print s End Sub

运行上面的程序，单击命令按钮，其输出结果是（ ）。 A) 4321 B) 12 C) 34 D) 1234

(22) 在窗体上面一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1

Private Sub Command1_Click( ) Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i

For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub

程序运行后，单击命令按钮，其输出结果为（ ）。 A）6 9 B）7 10 C）8 11 D）9 12 7 10 8 11 9 12 10 13 (23) 假定有如下的Sub过程： Sub S（x As Single,y As Single） t = x x =t/y

y =t Mod y End Sub

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click ( ) Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub

程序运行后，单击命令按钮，输出结果为（ ）。 A) 5 4 B) 1 1 C) 1.25 4 D) 1.25 1 (24) 阅读程序：

Function F(a As Integer) b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function

Private Sub Command1_Click () Dim a As Integer a =2

For i =1 To 3 Print F(a) Next i End Sub

运行上面的程序，单击命令按钮，输出结果为（ ）。 A）4 B）4 C）4 D）4 4 5 6 7 4 6 8 9 (25) 阅读程序：

Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4)As Integer a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a () For i =1 To 4 Print a(i) Next i End Sub

运行上面的程序，单击命令按钮，输出结果为（ ）。 A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16

(26) 下列不能打开菜单编辑器的操作是（ ）。 A）按Ctrl+E

B）单击工具栏中的\菜单编辑器\按钮 C）执行\工具\菜单中的\菜单编辑器\命令 D）按Shift + Alt + M (27) 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（A) MenuItem. Enabled=False B) MenuItem. Enabled=True C) MenuItem. Visible=True D) Menultem. Visible=False

(28) 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（ ）。 A) Move B) Change C) Scroll D) GetFocus

。 ）

(29) 假定窗体上有一个标签，名为Label1，为了使该标签透明并且没有边框，则正确的属性设置为（ ）。 A) Label1. BackStyle=0 Label1.Borderstyle=0 B) Label1.BackStyle=1 Label1.Borderstyle=1 C) Label1.BackStyle=True Label1.BorderStyle=True D) Label1.BackStyle=False Label1.Borderstyle=False

(30) 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem\ List1.AddItem\ List1.AddItem\ List1.AddItem\ Text1.Text=\ End Sub

Private Sub List1_ DblClick ( ) a =List1.Text

Print a+Text1.Text End Sub

程序运行后，在文本框中输入\（见图1），然后双击列表框中的\，则输出结果为（ A) 1245 B) 456789 C) 789456 D) 0

(31) 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是（ ）。 A) Visible B) Timer C) Enabled D) Interval

(32) 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（ ）。A）Get文件号，记录号，变量名 B）Get文件号，变量名，记录号 C）Put文件号，变量名，记录号 D）Put文件号，记录号，变量名 (33) 对窗体编写如下事件过程：

Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X As Single Y As Single) If Button =2 Then Print \ End If End Sub

Private Sub Form _ MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print \ End Sub

程序运行后，如果单击鼠标右键，则输出结果为（ ）。 A) AAAAA B) BBBBB C) AAAAA D) BBBBB BBBBB AAAAA

(34) 为了在运行时能显示窗体左上角的控制框（系统菜单），必须（ ）。 A) 把窗体的ControlBox 属性设置为Fale,其他属性任意

B) 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5 C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值 D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值 (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)>m1 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〗 。 (6) 执行下面的程序段后，b的值为 〖6〗 。 a=300 b=20 a=a+b b=a-b a=a-b

(7) 以下程序段的输出结果是 〖7〗 。 num=0

While num<=2 num=num+1 Print num; Wend

(8) 在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 10) Dim p(1 To 3) k=5

For i=1 To 10 a(i)=i Next i

For i=1 To 3 p(i)=a(i*i) Next i

For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub

程序运行后，单击命令按钮，输出结果是 〖8〗 。

(9) 下面的程序用\选择\法将数组a中的10个整数按升序排列，请在〖9〗 、〖10〗、〖11〗处将程序补充完整。 Option Base 1

Private Sub Command1_Click() Dim a

a=Array(678,45,324,528,439,387,87,875,273,823) For i= 〖9〗 step -1 For j= 〖10〗 step -1 If a(i) 〖11〗 a(j) Then a1=a(i)

a(i)=a(j) a(j)=a1 End If Next j Next i

For i=1 To 10 Print a(i) Next i End Sub

(10) 在窗体画一个命令按钮，然后编写如下过程： Function fun(ByVal num As Long)As Long Dim k As Long k=1

num=Abs(num) Do While num k=k*(num Mod 10) num=num\\10 Loop fun=k

End Function

Private Sub Command1_Click() Dim n As Long Dim r As Long

n=InputBox(\请输入一个数\ n=CLng(n) r=fun(n) Print r End Sub

程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 〖12〗 。 (11) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 〖13〗 。

(12) 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在〖14〗和〖15〗处将程序补充完整。 Private Sub Command1_Click() 〖14〗 Form1 Form2. 〖15〗 End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库第三部分 全国计算机等级考试模拟试卷及参考答案(7)在线全文阅读。