VB 第四章顺序结构程序设计习题

1.执行下面的程序段后，x 的值为 A 。

x=5For i=1 To 20 Step 2x=x+i\5Next iA．21 B．22 C．23 D．242.在窗体上画两个文本框（其【Name】属性分别为“Text1”和“Text2”）和一个命令按钮（其【Name】属性为“Command1”），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopForm1.Print xForm1.Print nEnd Sub程序运行后，单击命令按钮，窗体上显示的值分别为 B 。

A．1和0 B．2和72 C．3和50 D．4和1683.执行下面的程序段后，s的值为 C 。

s=5For i = 2.6 To 4.9 Step 0.6s=s+1Next iA．7 B．8 C．9 D．104.执行下面的程序段后，s的值为 A 。

s = 0i = 1N=1Do While i < Ns = s + ii = i + 1LoopA．0 B．1 C．2 D．35.执行下面的程序段后，s的值为 B 。

s = 0i = 1N=1Dos = s + ii = i + 1Loop While i < NA．0 B．1 C．2 D．31.在空白处填上代码以完成整个循环。

For i = l To 10Print Tab(16 - i);For j = 1 TO 2 * i - 1Print "*"Next jPrint '换行Next i2.补充代码，以完成查找75最大公约数的功能。

For i=36 To 1 Step -1If 75 mod i == 0 ThenPrint "75最大公约数为",iExit ForEnd ifNext i3.补充代码，以完成查找35和75最大公约数的功能。

第3章 Visual Basic程序设计代码基础一. 选择题1.下列【】字符不属于Visual Basic字符集。

(A)A (B)# (C)巳(D)@2.以下不合法的常量是【】。

(A)1O^2 (B)100 (C)100.0 (D)1OE+013.Visual Basic允许的常量有【】。

(多选)(A)E7 (B)4.8E2 (C)2.5*10 (D)E-5(E)1/2 (F)1.le-2 (G)π(H)False4.以下【】不是合法的常量。

【】是布尔常量, 【】是字符串常量, 【】是日期常量。

(多选)(A)true (B)”100”(C)11-03-99 (D)F (E)'AN' (F)#11/05/1998#5.常量-0.00013579的科学记数法是【】。

(多选)(A)-1,3579E+OA (B)13579E-4 (C)-13579E-5 (D)-13579E-046.Visual Basic中的数据也可以以十六进制或八进制表示,十六进制数据以【】开头,八进制数据以【】符号开头。

(A)$E (B)$H (C)&O (D)&H7.\、/、Mod、* 四个算术运算符中,优先级最低的是【】。

(A)＼(B)/ (C)Mod (D)*8.以下【】是字符串常量, 【】可以作为字符串变量。

(A)m (B)#01/01/99# (C)"m" (D)Tme9.下列【】是日期型常量。

(A)"2/1/02" (B)2/1/02 (C)#2/1/02# (D){2/1/02}10.下面【】不是字符串常量。

(A)"你好" (B)"" (C)"Tme" (D)#False#11.表达式Int(8*Sqr(36)*Lo^(-2)*10+0.5)/10的值是【】。

(A).48 (B).048 (C)5 (D).0512.表达式Val(".123E2CD")的值是【】。

第四章结构程序设计4.2 顺序结构程序设计4.21 简单的顺序结构程序设计例题1：计算长方形面积和周长（设长方形的长和宽分别是：100、30）。

Dim X as integer, Y as integer, S as integer, L as integerX = 100Y = 30S = X * YL = 2 * (X + Y)Print S, L程序说明：请记住以下4个步骤1．变量说明定义Dim X as integer, Y as integer, S as integer, L as integer2. 为变量赋值X = 100Y = 303. 计算变量X 变量Y 变量S 变量L S = X * YL = 2 * (X + Y)4. 显示结果Print S, L运行结果显示：例题1的修改：计算长方形面积和周长（设长方形的长和宽分别是：100、30）。

Dim X as integer, Y as integer, S as integer, L as integerX = 100Y = 30S = X * YL = 2 * (X + Y)Print S, L1．变量定义简化：Dim X%, Y%, S%,L%2．改用文本框输出面积和周长（原题是打印输出在窗体上）原输出方式： Print S, L将原语句改为如下：Text1.Text = SText2.Text = L输出形式如图：在窗体上要加两个文本框，两个标签。

说明：两种输出方式选用其中一种即可，不需要两种输出都使用。

修改后程序如下：X = 100Y = 30S = X * YL = 2 * (X + Y)Text1.Text = SText2.Text = L3．使用文本框来输入长宽X、Y值。

X = Text3.TextY = Text4.Text即加了4个文本框，2个用来输入X、Y ，两个用来输出S、L，注意各自形式：X = Text3Y = Text4S = X * YL = 2 * (X + Y)Text1 = SText2 = L特别注意：前面两个语句是用文本框为变量X\Y赋值，后面两个语句是把计算出来的结果值放在文本框中显示。

1．结构化程序设计的三种基本结构是什么？ 答：顺序结构、选择结构和循环结构。

2． 指出下列赋值语句中的错误（包括运行时要产生的错误）。

⑴ 10x=sin(x)+y 答：10x 错误变量名 ⑵ c=3+sqr(-3)答：sqr(x) 中自变量要求>=零 ⑶ c+x+y=c*y答：赋值符号的左边是表达式 ⑷ x=sin(x)/(20 mod 2) 答：分母不能为零3．Msgbox 函数和InputBox 函数之间有什么区别？各自获得什么值？答：两个函数的共同之处是均显示对话框。

区别：InputBox 函数等待用户在文本框中输入数据，获得的是输入的字符串数据；Msgbox 函数等待用户按一按钮，获得的是表示按钮的整数值，以决定程序的流向。

4．要使单精度变量x ，y ，z 分别保留1位、2位、3位小数，并在窗体上显示，应使用什么函数？如何编写对应的Print 方法？ 答：使用Format 函数，具体如下： Print Format(x, "0.0")Print Format(y, "0.00") Print Format(z, "0.000")5． 语句if 表达式 then …中的表达式可以是算术、字符、关系、逻辑表达式中的哪些？ 答：可以是算术、关系、逻辑表达式。

按照一般语言的规定，if 后应该是关系表达式、逻辑表达式，根据其结果逻辑量是True 或False 决定是否执行Then 后面的句子。

而在VB 中还可以是算术表达式，因为VB 逻辑判断中，对于非0值就作为True ，而0值作为False ，因此分段函数sin /0,00{x x x x x y <>== 可用VB 语句表示为：If x Then y ＝ sin (x) / x Else y = 0 而不必写成If x < >0 Then y = sin (x) / x Else y = 06 指出下列语句中的错误。

第 1 章概述一、叙述题1．简述VB具有哪些特点。

（1）面向对象的可视化设计工具（2）事件驱动的编程机制（3）易学易用的应用程序集成开发环境（4）结构化的程序设计语言（5）充分利用Windows资源（6）开放的数据库功能与网络支持2．简述事件驱动的程序设计原理。

解答：VB程序的运行没有固定的顺序，它通过事件来激活某个对象，随着该对象的活动，会引发新的事件，这个事件又可能使另一个对象激活，对象之间就是以这种方式联系在一起的。

每个事件都可以通过一段程序（称为“事件过程”）来响应，在事件发生时，系统将自动执行相应的事件过程，用以实现指定的操作并达到运算、处理的目的。

为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序，这就是VB事件驱动的程序设计原理。

3．VB的集成开发环境由哪些元素组成？解答：标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。

4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？解答：VB集成开发环境的工具栏可以自定义，方法是：用鼠标右击标准工具栏的任意位置，可以打开或关闭其余工具栏。

标准工具栏中包含的按钮有：添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。

5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？解答：涉及两个文件要保存。

先保存窗体文件（.frm），再保存工程文件（.vbp）。

6．简述用VB开发应用程序的一般步骤。

（1）创建应用程序界面（2）设置界面上各个对象的属性（3）编写对象响应事件的程序代码（4）保存工程（5）运行和调试应用程序（6）创建可执行程序二、单选题1．D VB是一种面向对象的可视化程序设计语言。

VB课后作业第三次作业习题四09信管李莎2009181040152012/4/11书95页习题四9.计算下列循环语句的次数：（1）循环次数为：6（2）循环次数为：19（3）循环次数为：0（4）循环次数为：死循环直至溢出12.利用循环结构，实现如下功能：（1）Dim i As Integer, s As IntegerFor i = 1 To 10s = s + (i + 1) * (2 * i + 1)Next iPrint "s="; s（2）Dim i As Integer, n3 As Integer, n7 As IntegerFor i = 1 To 100If i Mod 3 = 0 Then n3 = n3 + 1If Int(i / 7) = i / 7 Then n7 = n7 + 1Next iPrint "1-100中3的倍数有"; n3; "个"Print "1-100中7的倍数有"; n7; "个"（3）Dim s1 As String, s2 As String, i As Integers1 = InputBox("Input String")s2 = ""For i = 1 To Len(s1)s2 = Mid(s1, i, 1) + s2Next iPrint "原序："; s1Print "反序："; s213.下面程序的运行结果是什么？该程序的功能是什么？Private Sub Command1_Click()Dim x$, n%n = 20Do While n <> 0a = n Mod 2n = n \ 2x = Chr(48 + a) & xLoopPrint xEnd Sub答：输出字符串“10100”。

顺序结构程序设计练习题一、选择题1、下面正确的赋值语句是（）。

A）x+y=30 B) y=π*r*r C）y=x+30 D)3y=x2、为了给x，y，z三个变量赋初值1，下面正确的赋值语句是（）A）x=1: y=1: z=1 B) x=1, y=1, z=1 C) x=y=z=1 D) xyz=13、赋值语句：a=123+left(＂123456＂,3)执行后，a变量中的值是。

A）＂12334＂B)123 C)12334 D) 2464、在Visual Basic中，下列____程序行是正确的。

A)X=Y=5 B)A+B=C^3 C)Y=1 & Y=Y+1 D)I=X10”5、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2，作用是____。

A)用于测试X是否偶数 B)返回一个整数C)返回一个奇数 D)用于测试X是否整数6、在Visual Basic 中，下列____ 单词用于注释语句。

A)Rem B)End C)Else D)Loop7、inputBox函数反回值的类型为( ) 。

A) 数值B) 字符串C) 变体D) 数值或字符串（视输入的数据而定）8、如果在立即窗口中执行以下操作：a=8 ：b=9print a>b则输出结果是( ) 。

A) –1 B) 0 C) False D) T rue9、语句Print Format (32548.5,"000,000.00") 的输出结果是( ) A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.5010、为了把焦点移到某个指定的控件，所使用的方法是（）A) SetFocus B) Visible C) Refresh D) GetFocus11、在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为T ext1和T ext2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click() a=T ext1.T ext+T ext2.T extPrint aEnd Sub Private Sub Form_Load() T ext1 T ext=""T ext2 T ext=""End sub程序运行后，在第一个文本框（T ext1）和第二个文本框（T ext2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。