31、【
单选题
】 在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:
Private Sub Command1_Click( )
a = 75
If a>60 Then
k = 1
Elself a>70 Then
k = 2
Elself a>80 Then
k = 3
Elself a>90 Then
k = 4
EndIf
MsgBox k
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果是
[2分]
、
1
、
2
、
3
、
4
答案:
32、【
单选题
】 设有如下窗体单击事件过程:
Private Sub Form_Click( )
a = 1
For i = 1 To 3
Select Case i
Case 1,3
a= a+1
Case 2,4
a= a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后,单击窗体,则消息框的输出的结果是
[2分]
、
3
、
4
、
5
、
6
答案:
33、【
单选题
】 设有如下程序:
Private Sub Command1_Click( )
Dim sum As Double, x As Double
Sum = 0
n = 0
For i = 1 To 5
x=n/i
n=n+1
sum=sum+x
Next I
End Sub
该程序通过For循环来计算一个表达式的值,这个表达式是
[2分]
、
1+1/2+2/3+3/4+4/5
、
1+1/2+1/3+1/4+1/5
、
1/2+2/3+3/4+4/5
、
1/2+1/3+1/4+1/5
答案:
34、【
单选题
】 下列Case语句中错误的是
[2分]
、
Case 0 To 10
、
Case Is>10
、
Case Is>10 And Is<50
、
Case 3,5 Is>10
答案:
35、【
单选题
】 如下程序段定义了学生成绩的记录类型,由学号、姓名和三门课程成绩(百分制)组成。
Type Stud
no As Integer
name As String
score (1 to 3) As Single
End Type
若对某个学生的各个数据项进行赋值,下列程序段中正确的是
[2分]
、
Dim S As Stud
Stud.no=1001
Stud.name="舒宜"
Stud.score=78,88,96
、
Dim S As Stud
S.no=1001
S.name="舒宜"
S.score=78,88,96
、
Dim S As Stud
Stud.no=1001
Stud.name="舒宜"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96
、
Dim S As Stud
S.no=1001
S.name="舒宜"
S.score(1)=78
S.score(1)=88
S.score(1)=96