1、.一、单项选择题1、与传统的程序设计语言相比 ,Visual Basic 最突出的特点是（C）。 A、结构化程序设计 B、程序开 发环境 C、事件 驱动编程机制 D、程序调试技术2、赋值语句：a=123 “:“; “=“; k; “+“; n - kExit ForEnd IfNext ki = i + 1Next nEnd Sub10,子过程 F（N，M，T）对一个四位数 n 整整数判断：已知该整数 n，逆向排列 获得另一个 4 位数m 是特自身的倍数，则 t 为 true表示满足上述条件。 。Private Sub Command1_Click()Dim t As Boolean, i%,
2、 k%text1 = “text2 = “For i = 1000 To 9999Call f(i, k, t)If t Thentext1 = text1 count1; “个“ElsePrint “右括号多于左括号“; -count1; “个“End IfEnd IfEnd Sub10、顺序文件的建立。建立文件名为“c:stud1.txt” 的顺序文件，内容来自文本框，每按 Enter 键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。Private Sub Form_Load()Open “c:stud1.txt” For Output As #1Text1.Tex
3、t=“”End SubPrivate Sub Text1_KeyPress(keyAscii As Integer)If keyAscii=13 ThenIf Ucase(Text1)=“END“ ThenClose #1End ElsePrint #1,Text1 Text1.Text=“”End IfEnd IfEnd Sub.11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显示结果。其中，CountY 中放元音字母个数，CountC 中放其他字符数。Private Sub Command1_Click()Dim CountY%, CountC%, i%Dim
4、C$, B$c=Text1.TextFor i = 1 To Len(C)B =UCase(Mid(C, i, 1)If “A“6 13、产生10，37之间的随机整数的 Visual Basic 表达式是。判断 s 字符变量是大写字母字符的逻辑表达式为=“A“ And s 。表示 x 是 5 的倍数或 9 的倍数的逻辑表达式是Len(“vb 程序设计 “)的值是。表示字符变量 s 是字母字符（不区分大小写）的 VB 表达式是=“a“ And Lcase(s)=“A“ And Ucase(s)。将一个两位数 x 的个位数与十位数交换位置， 组成另一个两位数，则对应的表达式是。.随机产生一个“C”
5、“L”范围内的大写字符，则对应的 VB 表达式是 。Round(-3.5)的值是。Int(3.5)的 值是 。下面程序段运行后的输出结果是。For i = 0 To 3Print Tab(5 * i + 1); “2“ + i; “2“ Next i循环语句 For i=-3 to 20 Step 0 的循环次数是。在过程中定义的局部变量，如果希望 过程结束后还保存变 量的值， 则应使用关键字进行声明。由 Array 函数建立的数组，其变量必须是。要使循环语句循环执行 20 次， For k=_ to -5 Step -2，则 k=。循环语句 For i=-3.5 to 5.5 Step 0.
6、5 的循环次数是。下列程序段中，第 41 句共执行了 次。30 For j = 1 To 12 Step 340 For k = 6 To 2 Step -241 Print j, k42 Next k43 Next j循环语句 For i=-3 to 20 Step 4 的循环次数是。下面程序运行后的输出结果是。a = “*“: b = “$“For i = 1 To 4If i Mod 2 = 0 Thenx$ = String(Len(a) + i, b)Elsex$ = String(Len(a) + i, a)End IfPrint x$;Next i下面程序的运行结果是。x = 2
7、42: y = 44z = x * yDo Until nx = yIf x y Then x = x - y Else y = y - xLoopPrint x, z / x下列程序段中，第 40 句共执行了 次。30 For j = 1 To 12 Step 340 For k = 6 To 2 Step -241 Print j, k42 Next k43 Next j.如果在建立菜单时在标题文本框中输入一个,那么菜单显示时形成一个分隔线如果菜单标题的某个字母前输入一个符号，那么 该字母就成了热键字母。方法可以清除列表框中的所有内容。列表框中的 和 Selected 两个属性均为数组。属
8、性设 置为 1，单选按钮和复选框以图形方式显示。当用户单击滚动条的空白处时，滑 块移动的增量由属性决定。当用户单击鼠标右键时，MouseDown 、MouseUp 和 MouseMove 事件过程中的 Button 参数值为。列表框中项目的序号是从开始的。Visual Basic 中有一种控件 组合了文本框和列表框的特性， 这种控件是。如果窗体的属性设置为 True，则控件的 KeyPress 事件过程可以接收到在窗体的 KeyPress 过程中修改过的值。复选框的属性设置为 2-Grayed 时， 变成灰色，禁止用户选择。复选框的 属性设置为 2-Grayed 时，复选框变成灰色，禁止用户选
9、择。滚动条产生 Change 事件是因为它的属性值改变 了。如果要每隔 15 秒产生一个 Timer 事件， 则 Interval 属性应设置为。当用户单击滚动条两端的箭头时，滑 块移动的增量由属性决定。表示列表框（List1）中最后一项的序号。Visual Basic 提供的对数据文件的三种访问方式为顺序访问方式、和随机访问方式。一、单项选择题1、与传统的程序设计语言相比 ,Visual Basic 最突出的特点是（C）。 1 产生 1100 以内的素数Private Sub Command1_Click()Dim i%, j%, tag As BooleanFor j = 1 To 100
10、tag = TrueFor i = 2 To j - 1If j Mod i = 0 Then tag = FalseNext iIf tag Then Print j;Next jEnd Sub2、从 键盘输 入任意 长度的字符串，要求将字符顺序倒置，例如，将输 入的“ABCDEFG” 变换成“GFEDCBA”。 Private Sub Form_Click()Dim i, a, b, n As Stringn = InputBox(“输入字符“)i = Len(n)For a = 1 To i / 2.b = Mid(n, a, 1)Mid(n, a, 1) = Mid(n, i + 1
11、- a, 1)Mid(n, i + 1 - a, 1) = bNext aPrint nEnd Sub3.0 到 200 被 5 或 11 整除的数的和Private Sub Command1_Click()Dim i%For i = 0 To 200If i Mod 11 = 0 Or i Mod 5 = 0 ThenSum = Sum + iEnd IfNext iPrint “总 和是“; SumEnd Sub4输 入 一 年 份 ，判 断 他 是 否 为 闰 年 ，并 现 实 是 否 是 闰 年 的 有 关 信 息 。Private Sub Command1_Click()Dim y%
12、y = Val(Text1)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenMsgBox (y “ “; “x“; “ y“; “ z“Print “排序前 :“; x; “ “; y; “ “; zIf x y Then t = x: x = y: y = t:If x z Then t = x: x = z: z = t:If y y Then t = y: y = z: z = t:Print “排序后 :“; “; x; “ “; y; “ “; zEnd Sub6、求 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()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)
