大学VB考试题库（2020年九月）.pptx

学 海 无 涯 大学 VB 考试题库,一、单项选择题 1、与传统的程序设计语言相比,Visual Basic 最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 count1; 个 Else Print 右括号多于左括号; -count1; 个 End If EndIf End Sub,42,学 海 无 涯 10、顺序文件的建立。建立文件名为“c:stud1.txt”的顺序文件，内容来自文本框， 每按 Enter 键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。 Private Sub Form_Load() Open“c:stud1.txt” For Output As #1 Text1.Text=“” End Sub Private Sub Text1_KeyPress(keyAscii AsInteger) IfkeyAscii=13 Then If Ucase(Text1)=END Then Close #1 End Else Print #1,Text1 Text1.Text=“” End If EndIf End Sub 11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显示结 果。其中，CountY 中放元音字母个数，CountC 中放其他字符数。 Private Sub Command1_Click() DimCountY%, CountC%, i% DimC$, B$ c=Text1.Text Fori = 1 To Len(C) B=UCase(Mid(C, i, 1),43,学 海 无 涯 If A<=B And B<=Z Then Select Case B Case A,E,I,O,U CountY = CountY + 1 Case Else CountC = CountC + 1 End Select End If Next i Print 元音字母有; CountY; 个 Print 其它字母有; CountC; 个 End Sub 12、将 C 盘根目录下的一个文本文件 old.dat 复制到新文件 new.dat 中，并利用文件操作语 句，将 old.dat 文件从磁盘上删除。 Private Sub Command1_Click() Dimstr1 $ Open “c:old.dat” For Input As #1 Open “c:new.dat” For output As #2 DoWhile NotEoF(1) Line Input #1,str1 Print #2,str1 Loop Close #1,#2 KILL “c:old.dat” End Sub ,44,学 海 无 涯 6 13、产生10，37之间的随机整数的 Visual Basic 表达式是。 判断 s 字符变量是大写字母字符的逻辑表达式为=AAnd s。 表示 x 是5的倍数或9的倍数的逻辑表达式是 Len(vb 程序设计)的值是。 表示字符变量 s 是字母字符（ 不区分大小写） 的 VB 表达式是=aAnd Lcase(s)=AAnd Ucase(s)。 将一个两位数x 的个位数与十位数交换位置，组成另一个两位数，则对应的表达式是。 随 机 产 生 一 个 “C” “L” 范 围 内 的 大 写 字 符 ， 则 对 应 的 VB 表 达 式 是 。 Round(-3.5)的值是。 Int(3.5)的值是。 下面程序段运行后的输出结果是。 For i = 0 To 3 Print Tab(5 * i + 1); 2 + i; 2 Next i 循环语句 For i=-3to 20 Step 0 的循环次数是。 在过程中定义的局部变量，如果希望过程结束后还保存变量的值，则应使用关键 字进行声明。 由 Array 函数建立的数组，其变量必须是。 要使循环语句循环执行20次，For k= to -5 Step -2，则 k=。 循环语句 For i=-3.5to 5.5 Step 0.5的循环次数是。 下列程序段中，第41句共执行了次。 30 For j = 1 To 12 Step 3 40 For k = 6 To 2 Step -2 41 Print j, k 42 Next k,45,学 海 无 涯,43 Next j 循环语句 For i=-3to 20 Step 4的循环次数是。 下面程序运行后的输出结果是。 a = *: b = $ For i = 1 To 4 If i Mod 2 = 0 Then x$ = String(Len(a) + i, b) Else x$ = String(Len(a) + i, a) End If Print x$; Next i 下面程序的运行结果是。 x = 242: y = 44 z = x * y Do Until nx = y If x y Then x = x - y Else y = y - x Loop Print x, z / x 下列程序段中，第40句共执行了次。 30 For j = 1 To 12 Step 3 40 For k = 6 To 2 Step -2 41 Print j, k 42 Next k 43 Next j 如果在建立菜单时在标题文本框中输入一个,那么菜单显示时形成一 个分隔线,46,学 海 无 涯 如果菜单标题的某个字母前输入一个符号，那么该字母就成了热键字母。 方法可以清除列表框中的所有内容。 列表框中的和 Selected 两个属性均为数组。 属性设置为1，单选按钮和复选框以图形方式显示。 当用户单击滚动条的空白处时，滑块移动的增量由属性决定。 当用户单击鼠标右键时，MouseDown、MouseUp 和 MouseMove 事件过程中的 Button 参数值为 。 列表框中项目的序号是从开始的。 Visual Basic 中有一种控件组合了文本框和列表框的特性，这种控件是。 如果窗体的属性设置为 True，则控件的 KeyPress 事件过程可以接收到在窗 体的 KeyPress 过程中修改过的值。 复选框的属性设置为2-Grayed 时，变成灰色，禁止用户选择。 复选框的属性设置为2-Grayed 时，复选框变成灰色，禁止用户选择。 滚动条产生 Change 事件是因为它的属性值改变了。 如果要每隔15秒产生一个 Timer 事件，则 Interval 属性应设置为。 当用户单击滚动条两端的箭头时，滑块移动的增量由属性决定。 表示列表框（List1）中最后一项的序号。 Visual Basic 提供的对数据文件的三种访问方式为顺序访问方式、和 随机访问方式。 编程题 1 产生1100以内的素数 Private Sub Command1_Click() Dim i%, j%, tag As Boolean For j = 1 To 100 tag = True,47,学 海 无 涯,For i = 2 To j - 1 If j Mod i = 0 Then tag = False Next i If tag Then Print j; Next j End Sub 2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 PrivateSub Form_Click() Dimi, a, b, n As String n= InputBox(输入字符) i= Len(n) Fora = 1 To i / 2 b= Mid(n, a, 1) Mid(n, a, 1) = Mid(n, i + 1 - a, 1) Mid(n, i + 1 - a, 1) = b Next a Print n EndSub 3.0到200被5 或11整除的数的和 Private Sub Command1_Click() Dim i% For i = 0 To 200 If i Mod 11 = 0 Or i Mod 5 = 0 Then Sum = Sum + i End If Next i Print 总和是;Sum,48,学 海 无 涯,End Sub 4输入一年份，判断他是否为闰年，并现实是否是闰年的有关信息。 Private Sub Command1_Click() Dim y% y = Val(Text1) If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then MsgBox (y z EndSub 6、求 s=a+aa+aaa+.aaaaa（n 个a），其中 a 和n 的值随机产生，a 的范围是1,9的整数，n 的范围是5,10。 如 a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n 和 a 的值，并计算s。 Private Sub Form_click(),49,学 海 无 涯,Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0 Print Tab(9); a=; a,n=; n Print For i = 1 To n t = t * 10 + a s = s + t Print Tab(9); t Next i Print Print Tab(9); s=; s End Sub 7、计算100300之间所有能被3和7整除的数之和。 PrivateSub Command1_Click() Dims%, i% s= 0 Fori = 100 To 300 Ifi Mod 3 = 0 Or i Mod 7 = 0 Then s= s + i EndIf Nexti Prints= Next i Print imax = 0: max = a(0) For i = 1 To 6 If a(i) = max Then max = a(i): imax = i Next i t = a(0): a(0) = a(imax): a(imax) = t imin = 6: min = a(6) For i = 0 To 5 If a(i) <= min Then min = a(i): imin = i Next i t = a(6): a(6) = a(imin): a(imin) = t Print 除去最高分和最低分之后的分数 For i = 1 To 5 Print a(i);,52,学 海 无 涯,Next i For i = 1 To 5 s = s + a(i) Next i Print Print 该参赛者的平均得分为;s / 5 End Sub 11、编程显示100500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数本身) Private SubForm_Click() Print100500之间所有的水仙花数为： Dim x%, a%, b%, c% Forx = 100 To 500 a= x Mod 10 b= (x Mod 100) 10 c= x 100 If x = a 3 + b 3 + c 3 Then Print x Nextx EndSub 12、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1) x1 = x Mod 10 x2 = (x Mod 100) 10,53,学 海 无