以下关于MsgBox的叙述中.docVIP

41、执行程序段：m$ = ABC: n$ = abc: k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是______。（1分） A、abcabc B、ABCABC C、65 D、97 43、执行语句age = InputBox(请输入数值, 年龄输入框, 38)，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是______。（1分） A、变量Age的值是数值20 B、对话框标题栏中显示的是年龄输入框 C、对话框的默认值是38 D、对话框的提示文字为请输入数值 37、执行程序段：Const c$ = Henan: c$ = Zhengzhou: c$ = Daxue: Print c$，输出的结果是______。（1分） A、Henan B、Zhengzhou C、Daxue D、显示出错信息 二、填空题（7道小题，共30分） 1、* 产生50个60~100的随机数，统计其中被6整除余2的个数，并将这些数输出。Private Sub command1_click()Dim x, n As IntegerDim counter As IntegerFor（）= 1 To 50 x = Int(Rnd * 41 + 60) If （） Mod 6 = 2 Then counter = counter + 1 End IfNext nPrint counterEnd Sub（4分） 2、* 对10个100以内的整数用冒泡法按递减顺序排序。 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i: Print For i = 1 To 9 For j = 1 To 10 - i  If a(j) a(j + 1) Then（） = a(j): a(j) = a(j + 1): a(j + 1) = t  Next j Next i For i = 1 To 10 Print a(（）); Next i: Print End Sub（4分） 3、* 随机产生 n 个两位整数，求出其中的最大值和最小值。 Private Sub Command1_Click() Dim a(100) As Integer, n As Integer, i As Integer Dim min As Integer, max As Integer （） = InputBox(vbCrLf + vbCrLf + n=) Print 产生的随机数为 Randomize For i = 1 To n a(i) = Int(Rnd * 90) + 10 Print a(i); Next i: Print min = a(1): max = min  For i = 2 To （） If a(i) max Then max = a(i)  If a(i) min Then min = a(i)  Next i Print 最大值为 ; max Print 最小值为 ; min End Sub（4分） 4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。 Private Sub Form_Click() Dim R(1 To 3, 1 To 4) As Integer Dim S(1 To 3) As Integer Dim i%, j%, max%, k% k为最高成绩学生序号 For i = 1 To 3 （） (i) = 0 For j = 1 To 4 R(i, j) = Int(30 * Rnd + 70) Print Tab((j - 1) *