1. 如下程序段定义了学生成绩的记录类型，由学号、姓名和三门课程成绩(百分制)组成。 Type Stud NoAs Integer name As String score(1 to 3) As Single End Type 若对某个学生的各个数据项进行赋值，下列程序段中正确的是______。
A.Dim S As Stud Stud.no=1001 Stud.name="舒宜" Stud.score=78,88,96
B.Dim S As Stud S.no=1001 S.name="舒宜" S.score=78,88,96
C.Dim S As Stud Stud.no=1001 Stud.name="舒宜" Stud.score(1)=78 Stud.score(2)=88 Stud.score(3)=96
D.Dim S As Stud S.no=1001 S.name="舒宜" S.score(1)=78 S.score(2)=88 S.score(3)=96
A B C D
D
[解析] 用户定义数据类型是使用Type语句定义的数据类型。用户定义的数据类型可以包含一个或多个任意数据类型的元素。由Dim语句可创建用户定义的数组和其他数据类型。用户定义类型变量的取值，可以指明变量名及分量名，两者之间用句点分隔。本题中选项A、C中变量名均用的是类型名，所以错误。“score(1 to 3)AsSingle”定义了3个单精度数构成的数组，数组元素为score(1)至score(3)。
7. 在窗体中有命令按钮Command1和文本框Text1，按钮的事件代码如下： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 运行窗体后，单击命令按钮，消息框的输出结果是______。
17. 窗体中有命令按钮run34，对应的事件代码如下： Private Sub run34_Enter() Dim Bum As Integer,a As Integer,b As Integer,i As Integer For i=1 To 10 num=InputBox("请输入数据:","输入") If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("运行结果"a="& Str(A)&", b="& Str(B)) End Sub 运行以上事件过程，所完成的功能是______。
23. 有如下事件代码，运行后输出结果是______。 Private Sub Command33_Click() Dim x As Integer Dim y As Integer x=1:y=0 Do Until y＜=25 y=y+x*x x=x+1 Loop MsgBox"x="&x&",y="&y End Sub
34. 窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下： Private Sub command1_click() Dim i As Integer,n As Integer For j=0 to 50 i=i+3 n=n+1 If i＞10 Then Exit For Next j text1=str(n) End Sub 程序运行时单击命令按钮，文本框中显示的值是______。
单击“退出”按钮，关闭窗体。 Private Sub btnCance1_Click() ______ End Sub 表格式窗体当前记录变化时触发 Private Sub Form_Current() If MsgBox("是否删除该记录?", vbQuestion+vbYesNo, "确认")=vbYes Then ______ End If End Sub 横线处应填写的内容是______。
深色：已答题 浅色：未答题