第4章VBScript基础知识
习题4
1. 选择题（可多选）
（1）下列哪一个变量名称是正确的？B
A. 1_ab
B. ab_1
C. _ab
D. ab?
（2）在一段程序中a是一个变量，那么"a"是：B
A. 变量
B. 直接常量
C. 字面常量
D. 符号常量
（3）下面哪条语句可以正确执行？（注：第四句我的主页两边是中文引号）C
A. Response.Write "
B. Response.Write "
C. Response.Write "
D. Response.Write "
（4）执行语句a="6"后，变量a的数据子类型是?A
A. 字符串
B. 日期
C. 数值
D. 布尔
（5）执行语句a="2008-8-8"后，变量a的数据子类型是?A
A. 字符串
B. 日期
C. 数值
D. 布尔
（6）假设变量a=5、b=3，则执行语句c="a>b"后，变量c的数据子类型是?A
A. 字符串
B. 日期
C. 数值
D. 布尔
（7）语句a="abc"="abc"运行完毕后，变量a的数据子类型是?C
A. 数值
B. 字符串
C. 布尔
D. 日期
（8）执行语句a=3: a=a+5后，变量a的值是：
A. 3
B. 5
C. 8
D. 出错
（9）已知x=123，那么执行语句y=x \10 Mod 10后，变量y的值是?
A. 0
B. 1
C. 2
D. 3
（10）已知a= "ab"，那么执行语句b="cd'" & a & " " & "ef"后，变量b的值是?
（提示：请注意题目和答案中的空格）
A. "cd'ab ef"
B. "cd'abef"
C. "cdabef"
D. "cdab ef"
（11）下面的语句执行完毕后，变量a、b、c、d的值分别是?
<% a="1"+"1": b="1"+1: c="1" & "1": d="1" & 1 %>
A. "11"、"11"、"11"、"11"
B. "11"、2、"11"、"11"
C. 2、2、"11"、"11"
D. "11"、"11"、2、2
（12）请问表达式Not(6+3<5+2)的值是？
A. True
B. False
C. 9
D. 无法计算
（13）请问Int(3.45)和Int(-3.45)的值分别是什么？
A. 4、-4
B. 3、-4
C. 3、3
D. 3、-3
（14）执行语句a=Int(10 * Rnd())后，则a的值不可能出现的有?
A. 0
B. 1
C. 10
D. 11
（15）在取整时按四舍五入进行的函数是？
A. Int
B. Fix
C. Round
D. CInt
（16）请问Mid("八千里路云和月",3,2)的返回值是什么？
A. "千里"
B. "里路"
C. "里"
D. "路云"
（17）执行语句a=InStr(Trim(Replace(" abcdef ","c","")),"ef")后，变量a的值是?
A. 0
B. 1
C. 4
D. 5
（18）函数DateDiff("m",#2008-8-8#,#2008-10-1#)的返回值是?
A. 1
B. 2
C. 54
D. 5
（19）对于数组a(3,4)，函数UBound(a,2)的值是：
A. 1
B. 2
C. 3
D. 4
（20）假如变量a的值是"100"，则IsNumeric(a)和VarType(a)的值分别是？
A. True、2
B. True、8
C. False、2
D. False、8
（21）假如变量a的值是"2008-8-8"，则IsDate(a)和VarType(a)的值分别是？
A. True、2
B. True、8
C. False、2
D. False、8
（22）执行语句a=Chr(Asc("ABC"))后，则a的值是：
A. "ABC"
B. "A"
C. 65
D. 出错
（23）退出Do循环的语句是？
A．Exit For B. Exit Do C. Exit Sub D. Exit Function （24）在示例3-11和3-12中，循环结束后，I的值分别是多少？
A. 100、100
B. 101、101
C. 100、101
D. 101、100
（25）以下哪些语句可以嵌套使用？
A. For…Next
B. Do…Loop
C. Select Case
D. If…Then…Else
2. 问答题
（1）名词解释：单目运算符、双目运算符、操作数、函数、子程序、过程运算所需变量为一个的运算符叫单目运算符
运算所需变量为两个的运算符叫做双目运算符
操作数——参与运算的数
函数——就是由若干语句组成的程序模块，它可以实现一个特定的功能，并返回一个函数值。子程序——就是只执行程序而不返回值的程序模块。
过程——就是自己定义的函数，过程有两种：一种是Sub子程序，一种是Function函数。两者的区别在于：Sub子程序只执行程序而不返回值，而Function函数执行程序后会返回值。
（2）脚本级变量和过程级变量有什么重要区别？
脚本级变量在整个ASP文件内都可以被引用，而过程级变量，只能在过程内使用。
（3）在页面A中定义的变量可以在页面B中引用吗?
一般是不可以的，但是如果把A页面包含在B中，就是可以的。
（4）程序中的符号常量可以用变量来代替吗？
可以。
（5）请简述四类运算符的优先级顺序。
算术运算符>连接运算符>比较运算符>逻辑运算符
（6）不同过程中的变量名是否可以一样？
可以，因为过程级变量，只在本过程中有效。但不推荐这样使用。
（7）Function函数中的形参和实参名称是否可以一样？
可以，形参和实参名称可以一样，也可以不一样，因为两者是按位置对应的。
（8）在For…Next循环中，可以给计数器变量赋值吗？
在For…Next循环中，可以给计数器变量赋值吗？
3. 实践题
（1）请在你的个人主页上添加时间显示信息，显示当天的日期、时间及星期几。
（2）请编写程序段，判断当天日期，如果是25日，则显示“请注意，明天可能有病毒发作”。
<%
if day(now())=25 then
%>
<%
end if
%>
（3）请编写程序段，随机产生一个0到9的整数。如果是偶数，则在页面上输出“生成的是偶数”，否则输出“生成的是奇数”。
randomize
ri=int(rnd*9)
if ri mod 2=0 then
response.write "生成的是偶数："&ri&"
"
else
response.write "生成的是奇数："&ri&"
"
end if
（4）S=12+32+52+…+992，请利用两种循环语句编写程序，计算S的值。
（5）请编写函数计算a到b的立方和，并举例调用，调用时a、b分别为3和6。
（6）请编写函数能够随机产生从a到b之间的整数，并举例调用。
（7）请结合示例3-13开发一个函数，使其能实现Join函数的功能。
（8）请在示例3-14的基础上增加一段代码，从而可以计算所有数组元素的平方和。（提示：请用嵌套循环）
（9）（选做题）有100个人吃100个馒头，大人1人吃4个，孩子4人吃1个，问有多少个大人和多
少个孩子？（提示：使用嵌套循环和条件语句）
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页
2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x
第4章VBScript基础知识 习题4 1. 选择题（可多选） （1）下列哪一个变量名称是正确的？B A. 1_ab B. ab_1 C. _ab D. ab? （2）在一段程序中a是一个变量，那么"a"是：B A. 变量 B. 直接常量 C. 字面常量 D. 符号常量 （3）下面哪条语句可以正确执行？（注：第四句我的主页两边是中文引号）C A. Response.Write "
《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。
一、单选题（共15小题，每小题2分，共30分） 1.以下叙述中，错误的是（B ）。 A) 在Visual Basic中，对象所能响应的事件是由系统定义的 B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C) Visual Basic中允许不同对象使用相同名称的方法 D) Visual Basic中的对象具有自己的属性和方法 2.下列叙述中，错误的是（C ）。 A、VB是可视化程序设计语言 B、VB采用事件驱动编程机制 C、VB是面向过程(对象)的程序设计语言 D、VB应用程序可以以编译方式执行 3.下列（A ）是合法的变量名。 A、x_y （合法变量名以字母或下划线头） B、x-y C、2x D、and 4.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C ）。 A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 5.设a=”Visual Basic”，下面使b=”Basic”的语句是（B ） A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a， 8,5) 取字符串a第8个字符开始的5个 6.如果x小于y的平方，则在窗体上输出“OK”。完成该要求的单行条件语句是（C ）。 A、If x < y ^ 2 Then "OK" B、If x < y ^ 2 Then Show "OK" C、If x < y ^ 2 Then Print "OK" D、f x < y ^ 2 Then Put "OK" 7.要使循环体至少执行一次，应使用（D ）循环。 A、For …Next B、While …Wend C、Do …Loop[While/Until] D、Do[While/Until] …Loop（先做在判断， 所以会执行一次的） 8.下面程序段求两个数中的大数，不正确的语句是（D ）。 A、Max=Iif(x>y,x,y) B、if x>y Then Max=x Else Max=y C、Max=x D、if y>=x Then Max=y（Else） If y>=x Then Max=y Max=x 9.以下条件语句错误的是（ A ）。 A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0 C、If X > 0 Then Y = 1: Print Y D、If X > Y Then Print Y End If 10.若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中 设置（D ）。 A、Text属性值为* B、Caption属性值为*
程序设计 第一题、 题目：（事件）单击窗体 （响应）求 50 以内所有偶数的和，并在窗体上输出来。 将结果存入变量 S 中。 代码： Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求 s=1+1*2+1*2*3+ ?.+1*2*3* ?.*10 并将结果存入变量S 中代码： Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10
For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求 100 以内偶数的和，并将结果输出在窗体上。 将结果存入变量 SUM中 代码： Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+ ? .+15*16*17 的结果 并将结果输出到窗体上。将结果存入变量M中。
代码： Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求 100 以内奇数的和，并将结果输出在窗体上。 将结果存入变量 SUM中。 代码： Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题
3.1交换变量a1、a2的值，P35 Private Sub Form_Click() Dim a1 As Integer, a2 As Integer, t As Integer a1 = 5: a2 = 10 Form1.Print "交换"; a1; a2 t = a1: a1 = a2: a2 = t Form1.Print "得:"; a1; a2 End Sub Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print "交换两个数" Form1.Print "单击窗体开始" End Sub 3.2 Tab 函数，P35 Private Sub Form_Click() Form1.Print Tab(10); "*********" Form1.Print Tab(11); "*******" Form1.Print Tab(12); "*****" Form1.Print Tab(13); "***" Form1.Print Tab(14); "*" End Sub
Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print "显示星号三角形，单击窗体开始" End Sub 3.5 Move 方法在指定位置显示窗体，文本框和图，P45 Private Sub Form_Load() Picture1.AutoRedraw = True Move 3000, 2000, 2800, 2800 Text1.Move 300, 200, 2000, 500 Picture1.Move 300, 1000, 1600, 1200 Text1.Text = "文本框" Picture1.Print "图片框" End Sub 图3.13 显示和隐藏，P46 Private Sub Form_Click() Form1.Hide Form2.Show End Sub Private Sub Form_Load()
《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（）
月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。
2018-2019 第二学期计算机专业 每个窗体的二 《 VB 程序设计》试题（ A 卷） 进制数据文件，（共 10道 20分） 一、选择题 控件的属性值 等 1、一个工程必须包含的文件的类型是（） A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas C） *.bas *.ocx */res D）*.frm *.cls *.bas 2、以下关于 VB 数据类型的说法，不恰当的是（） A）VB 6.0提供的数据类型主要有字符串型和数值型，此外还有班级：字节、货币、对象、日期、布尔和变体数据类型等 B）目前 Decimal 数据类型只能在变体类型中使用 C）用户不能定义自己的数据类型 D）布尔型数据只能取两种值，用两个字节存储 姓名： 3、以下各项，可以作为 VB 变量名的是（） A） Book B）2_Seek C）123.58D）Book-1 学号：4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。 A）(0,1)B）(1,10)C）(0,9)D）(1,9) 5、要将名为 MyForm 的窗体显示出来，正确的使用方法是（） A） MyForm.Show B）Show.MyForm C） MyForm .Load D）MyForm .Show 6、输入代码时， VB 可以自动检测 ()错误。 A）语法错误B）编译错误C）运行错误D）逻辑错误 7、单击窗体上的关闭按钮时，触发的事件是（） A ）Form_Initialize()B）Form_Load() C）Form_Unload()D）Form_Click() 8、.用于将窗体上的对象分组的控件是（） A ）列表框B）组合框C）标签D）框架 9、下面语句正确的是（） A ） If x<3*y And x>y Then y=x^3 B） If x<3*y And x>y Then y=3x C）If x<3*y : x>y Then y=x^3D）If x<3*y : x>y Then y=x**3 10、 1.下列程序段的执行结果为 a=5 For k=1To 3 a=a + k Next k Print k； a A）-1 6B）-1 16C）411D）1121 二、程序设计（共4道题 80分） 1、利用TextBox、Label、Commandbutton控件编写如下功能和如 下用户界面的 VB 程序