《程序设计语言VB》试卷含答案.doc

PAGE 第 PAGE 1页 共 NUMPAGES 5页 《程序设计语言VB》试卷 (A卷) 姓名_______ __班级___________学号___________成绩___________ 一、单选题（每题1分，共20题,总计20分） 1.设A=7,B=4,C=6,，则表达式A Mod3+B^3/C\5的值为____C________ 。 A．1 B．2 C．3 D．出错 2.下列选项中，为字符串常量的是_____B____ 。 A．6/12/2001 B．6/12/2001 C．#6.12.2001# D． 6/12/2001’ 3.执行语句Print Format(5459.478, ##,##0.00)，正确的输出是_______B__ 。 A．5459.48 B．5,459.48 C．5,459.478 D．5,459.47 4.表达式123+27 mod 10\6+asc(“A”)的值为__B_________ 。 A．191 B．65 C．189 D．188 5.假定有一个菜单项，名为Menuitem，为了在运行时使该菜单失效，以下正确的语句是_____A___ 。 A．Menuitem.Enabled = False B．Menuitem.Enabled = True C．Menuitem.Visible = True D．Menuitem.Visible = False 6.下列控件中，______B____控件没有“Caption”属性。 A．CheckBox（复选框） B．Text（文本框） C．Frame（框架）、 D．Label（标签） 7.下面Sub子过程的各个语句中，正确的是__D________。 ① Private Sub Sub1(A() As string) ② Private Sub Sub1(A(1 to 10) As string*8) ③ Private Sub Sub1(S As string) ④ Private Sub Sub1(s As string*8) A abcd B abc C acd D ac 8.若要设置定时器控件的定时时间，需设置的属性是__A________。 A.Interval B.Value C.Enabled D.Text 9.36.有如下程序，该程序的执行结果是__C________。 Private Sub Command1_Click() n = 5 m = 1 k = 1 Do While k = n m = m * 2 k = k + 1 Loop Print m End Sub A．1 B．5 C．32 D．40 二、填空题（每空2分，共10空,总计20分） 1.下面程序中，统计随机产生的十个数中偶数与奇数的个数，并求出偶数与基数各自的总和。 Private Sub Command1_Click() Dim x As Integer, s1 As Integer, s2 As Integer Dim n1 As Integer, n2 As Integer, i As Integer Randomize For i = 1 To 10 x = Int(Rnd * 90) + 10 Print x; If x Mod 2 = 0 Then n1 = n1 + 1 s1 = s1 + x Else n2 = n2 + 1 s2 = s2 + x End If Next i Print Print 偶数个数=; n1 End Sub 2.运行下面的程序，当单击窗体时，窗体上显示的第一行内容是8 6 1，第二行内容是5 6，第三行内容是8 7 2。 Private Sub Command1_Click() Dim a As Integer, b As Integer a = 5: b = 3 Call sub1(a, b) Print a, b End Sub Public Sub sub1(ByVal m As Integer, n As Integer) Static x As Intege