DOC《笔试全真模拟试卷（1）》

4 S=S+a(k) Next k Print S End Sub A)10 B)14 C)15 D)120 (22)若要建立一个学生管理系统的输入界面,其中要求选择学生的性别、政治面貌(党/团/群众)及选课情况(共有5门课,可任选),下列设置方法正确的是( ). A)将5门课程用一组5个选择框来表示,将性别和政治面貌用5个单选按钮来表示 B)在一个框架上绘制有5个复选框的控件数组表示5门课程,在一个框架上绘制两个单选按钮表示性别,在一个框架上绘制3个单选按钮表示政治面貌的3种情况 C)将5门课程用一组5个单选按钮来表示,将性别和政治面貌用5个选择框来表示 D)用一组10个选择框来表示课程、性别和政治面貌 (23)在窗体上画一个名称为List1的列表框,一个名称为Label1的标签.列表框中显示若干国家的名称,当单击列表中的某个国家名时,在标签中显示选中国家的名称.下列正确实现上述功能的程序是( ). A)Private Sub List_Click() Label1.Caption=List1.ListIndex End Sub B)Private Sub List1_Click() Label1.Name=List1.ListIndex End Sub C)Private Sub List1_Click() Label1.Name=List1.Text End Sub D)Private Sub List1_Click() Label1.Caption=List1.Text End Sub (24)下列控件中,具有Caption属性的是( ). A)组合框 B)列表框 C)计时器 D)单选按钮 (25)下列程序段的执行结果是( ). Dim A(3,3) For M=1 To

3 For N=1 To

3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(N,N)=0 End If Next N Next M For M=1 To

3 For N=1 To

3 Print A(M,N) Next N Print Next M A)1

0 0

0 1

0 0

0 1 B)1

1 1

1 1

1 1

1 1 C)0

0 0

0 0

0 0

0 0 D)1

0 1

0 1

0 1

0 1 (26)下列程序执行后,输出结果是( ). For n=3 To

1 Step-1 x$=String$(n, # ) Print x$ Next n A)1# 2# 3# B)### ## # C)# ## ## D)3# 2# 1# (27)有下列事件过程: Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox( 请输入a的值 ) a=Val(a) b=InputBox( 请输入b的值 ) b=Val(b) a=a*b Loop Print a End Sub 程序运行后,依次输入数值30,20,10,-1后,输出结果是( ). A)6000 B)-10 C)200 D)-6000 (28)在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To

6 If X(i)>

c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的内容为( ). A)10 B)12 C)16 D)20 (29)在一个窗体上添加一命令按钮控件,名为Command1,事件过程如下,则执行结果是( ). Option Base

1 Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To

5 total=total+a(k) Next k Print total End Sub A)10 B)15 C)27 D)35 (30)有下列函数过程: Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数,则该程序的运行结果是( ). Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a,b) Print x End Sub A)0 B)25 C)50 D)100 (31)在窗体上画一个名称为 Command1 、标题为 计算 的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;

名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空,标签Label3的标题为 计算结果 .运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中.单击 计算 按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2.下列为 计算 按钮的事件过程,请为空白处选择合适的语句( ). Private Sub Command1_Click() Sum=0 For i=0 To