vb2级考试资料9.docVIP

9 　三、填空题 (请把正确的选项填入试题前的空格中)　 　　 第1题：【程序说明】 以下程序产生n个两位随机整数，将其中个位数等于5的数存入数组B中，并以每行五个的紧凑格式在窗体中用输出，同时输出该数组的个数。 Private Sub Form_Click() Dim a() As Byte, b() As Byte Dim i As Byte, m As Byte, n As Byte n = InputBox(请输入n值：) ----1---- a(n), b(n) For i = 1 To n a(i) = 10 + Int(Rnd * 90) If a(i) Mod 5 = 0 Then m = m + 1 ----2---- Print b(m); If ----3---- End If Next i Print Print 个位数为0的数有; m; 个 End Sub 请在左边文本框当中输入正确答案。 参考答案：ReDim 　 请在左边文本框当中输入正确答案。 参考答案：b(m) = a(i) 　 请在左边文本框当中输入正确答案。 参考答案：m Mod 5 = 0 或m/5=m\5 Then Print 　 第2题：【程序说明】 本程序通过选项来修饰预览区文字。单击字体组合框Cboziti可以设置预览区域的标签文字label5的字体；单击字号组合框Cbozihao可以设置预览区域的标签文字的字形；选择删除线复选框可以设置是否加删除线。 Private Sub Cbozihao_Click()选择字号 Label5.FontSize = Cbozihao.Text End Sub Private Sub Cbozihao_ ----1---- () 输入选项中没有的字号 If Val(Cbozihao.Text) 0 And Val(Cbozihao.Text) 72 Then Label5.FontSize = Val(Cbozihao.Text) Else Label5.FontSize = 9 End If End Sub Private Sub Cboziti_click()’字体 ----2---- End Sub Private Sub Check1_Click()‘复选框删除线 If ----3---- Then Label5.FontStrikethru = True Else Label5.FontStrikethru = False End If End Sub 请在左边文本框当中输入正确答案。 参考答案：Change 　 请在左边文本框当中输入正确答案。 参考答