以下关于MsgBox的叙述中.docx

1、以下关于MsgBox的叙述中41、执行程序段：m$ = ABC: n$ = abc: k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_。（1分）A、abcabcB、ABCABCC、65D、9743、执行语句age = InputBox(请输入数值, 年龄输入框, 38)，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是年龄输入框C、对话框的默认值是38D、对话框的提示文字为请输入数值37、执行程序段：Const c$ = Henan: c$

2、= Zhengzhou: c$ = Daxue: Print c$，输出的结果是_。（1分）A、HenanB、ZhengzhouC、DaxueD、显示出错信息二、填空题（7道小题，共30分）1、* 产生50个60100的随机数，统计其中被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 nPr

3、int 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) max Then max = a(i) If a(i) min Then min = a(i)

4、 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

5、) = Int(30 * Rnd + 70) Print Tab(j - 1) * 5); R(i, j); S(i) = S(i) + R(i, j) Next j S(i) = S(i) / 4 Print Next i max = 0 For i =（） To 3 Print 学生 & i; 平均成绩: & S(i) If max S(i) Then max = S(i) k = i End If Next i Print 最高平均成绩 k=; k, max=; max End Sub（4分）5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。* 程序

6、代码如下： Private Sub Command1_Click() Dim sum As Long,n As Integer sum=0 For n = 100 To 999 If duicheng(n) then sum=sum+ Next n End Sub Public Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i 100 If a = c Then duicheng=true Else duicheng=False End If End （4分）6、* 下面程序计算1!+3!+5!+.+9!的值，请将其补充完整。*

7、 程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As Integernt = 1For i = 1 To n nt = nt * iNext iEnd SubPrivate Sub Form_Click()Dim sum As Single, n As Integersum = 0For n = 1 To 9 Step 2 aa () sum = sum + （）Next nPrint sumEnd Sub（4分）7、* 编写一个显示随机数的程序，如图所示。* 运行过程：* 点击训练开始按钮之后，每隔一秒产生一个5位

8、数的随机整数显示到上面的标签中。Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = End SubPrivate Sub _Load() Label1.ForeColor = vbWhite Label1.BackColor = vbGreenEnd SubPrivate Sub Timer1_() Label1 = Val(Int(Rnd * 90000 + 10000)End Sub以下关于MsgBox的叙述中，错误的是_。MsgBox函数返回一个整数通过MsgBox函数可以设置信息框中图标和按钮的类型M

9、sgBox过程语句没有返回值MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数语句T = MsgBox(“程序执行了非法操作, vbAbortRetryIgnore, “提示信息“)的执行后，可以在对话框中显示_个按钮。1234下列符号中，属于Visual Basic合法变量名的是_。x238xyENDX8B运行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是_。26273857执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs

10、，输出的结果是_。232 232运行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是_。27执行程序 For n = 1 To 3: Cls: Print n=; n;: Next n 后, 输出结果是_。n= 3InStr(“Visual Basic程序设计简明教程中关于可视化界面的设计“, “设计“)的函数值为_。15Print Format(32556, #); Format(32556, #)的输出结果是_。3255632556m、n是整数，且nm，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mx

11、n的是_。x = Int(Rnd * (nm + 1) + m以下声明语句中，错误的是_。Public const=“计算机等级考试“执行程序段：m$ = ABC: n$ = abc: k$ = Lcase$(m$): j$ = Ucase$(n$): Print Asc(k$ + j$)，输出的结果是_。97窗体设计器是用于设计_。应用程序的界面下面关系运算中，输出结果为“True”的是_。1 + 2 = 121 + 2 = 31 & 2 = 121 & 2 = 3能产生10，32之间随机整数的函数表达式为_。Int(Rnd*23)+10Print Format(32556, #); For

12、mat(32556, #)的输出结果是_。3255632556325563255632556-325-325563258除了系统默认的工具箱之外，还可以通过_方法来增加控件。执行“工程”菜单中的“部件”命令执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是_。232 232Print DateDiff(“m“, #1/28/2004#, #1/31/2004#)的输出结果是_0执行x = -6 2: Print Sgn(x) + Abs(x) + Int(x)的结果是_。-361-1下列各组中，两

13、个函数功能完全相反的是_。Str(x)和Val(x)Asc(x)和Chr(x)LTrim(x)和RTrim(x)Timer(x)和Time(x)运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是_。21、* 产生50个60100的随机数，统计其中被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 cou

14、nter = 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( * 101) Print a(i); Next i: Print For i = 1 To 9 For j = i + 1 To If a(i) a(j) Then t = a(i):

15、a(i) = a(j): a(j) = t Next j Next i For i = 1 To 10 Print a(i); Next i: Print End Sub（4分）3、* 删除已知数组 a 中的某个元素。 Private Sub Command1_Click() Dim a() As Variant, n As Integer, Key As Integer a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a) Key = InputBox(请输入要删除的数) For i = 0 To n If Key = a(i) The

16、n Exit For Next i If i = n + 1 Then MsgBox (找不到此数) Exit Sub For j = i + 1 To n a(j - 1) = a(j) Next j n = - 1 ReDim Preserve a(n) For i = 0 To n Print a(i); Next i: Print End Sub（4分）4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。 Private Sub Form_Click() Dim R(1

17、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) * 5); R(i, j); S(i) = S(i) + R(i, j) Next j S(i) = S(i) / 4 Print Next i max = 0 For i = To 3 Print 学生 & i; 平均成绩: & S(i) If max S(i) T

18、hen max = S(i) k = i End If Next i Print 最高平均成绩 k=; k, max=; max End Sub（4分）5、* 设计一个求两个数的最大公约数的函数过程。* 程序代码如下： Option Base 1 Private Function (ByVal m%, ByVal n%) As Integer If m n Then t = m: m = n: n = t Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop gcd = End Function（4分）6、* 下面程序计算1!+3!+5!+

19、.+9!的值，请将其补充完整。* 程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As Integernt = 1For i = 1 To n nt = nt * iNext iEnd SubPrivate Sub Form_Click()Dim sum As Single, n As Integersum = 0For n = 1 To 9 Step 2 aa () sum = sum + Next nPrint sumEnd Sub（4分）7、* 大写字符转换小写字符，如图所示Private Sub Text1_(

20、KeyAscii As Integer)If KeyAscii = Asc(A) And KeyAscii max Then max = a(i) If a(i) min Then min = a(i) Next I Print 最大值为 ; max Print 最小值为 ; min End Sub23、过程的作用域分为( B )。（1分）A、窗体级和局部级 B、模块级和局部级C、窗体/模块级和全局级 D、窗体/模块级和局部级25、能在一个工程的所有程序中使用的变量，称为( B )。（1分）A、局部变量 B、全局变量C、窗体级变量 D、模块级变量27、使用Public Const语句声明一个全

21、局的符号常量时，应该将该语句放在( D )。（1分）A、过程中 B、窗体模块的通用声明段C、标准模块的通用声明段 D、窗体模块或标准模块的通用声明段28、在窗体中，用( D )语句声明的变量是静态变量。（1分）A、Dim Z As Integer B、Public Z As IntegerC、Private Z As Integer D、Static Z As Integer29、下列叙述中，正确的叙述是( D )。（1分）A、局部变量的作用域可以超出所定义的过程 B、在窗体的Form_Load事件过程中定义的变量是全局变量C、在调用过程时，所有局部变量被系统初始化为0或空字符串 D、在Sub

22、过程A中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于过程A37、在一个工程中如果想添加一个标准模块，不能实现的操作是( D )。（1分）A、使用“工程”菜单中的相应命令 B、使用工具栏上的相应命令按钮C、在工程资源管理窗口按右键调出相应命令 D、使用“编辑”菜单中的相应命令41、当一个工程含有多个窗体时，它的启动窗体是( D )。（1分）A、正在编辑的窗体 B、最后一个添加的窗体C、第一个添加的窗体 D、在工程属性对话框中指定的窗体42、当一个工程含有多个窗体时，单击启动命令按钮，运行的窗体是( D )。（1分）A、正在编辑的窗体 B、第一个添加的窗体C、最后一个添加

23、的窗体 D、在工程属性对话框中指定的窗体46、语句Open c:Datafile.dat For Output As #513有一个错误，该错误是( C )。（1分）A、要求打开的文件不存在 B、文件的打开模式不正确C、指定的文件号超过应有范围 D、文件类型不对47、下列叙述中，正确的叙述是( A )。（1分）A、文件是记录的集合 B、读写文件不需要通过内存C、从内存向外存传送数据，为读文件，使用读语句 D、从外存向内存传送数据，为写文件，使用写语句14、以下不合法的常量是_。（1分）A、102B、100C、100.0D、10E+0124、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是_。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable29、下列符号常量的声明中，_是不合法的。（1分）A、Const a As Single = 2.6B、