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、
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1