在文本框Textl和Text2中显示的内容分别是 3（4）和 5（5） 。 Private Sub Form_Click()
Dim x As Integer，y As Integer x=1：y=0 Do While x<3 y =y+x ?A语句 x=x+1 ?B语句 Loop
Text1.Text=x Text2.Text=y
End Sub
3．下面的事件过程判断文本框txtl中输入的数所在的区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。
Private Sub Command1_Click() Dim intl As Integer intl=CInt(txtl.Text) Select Case intl Case (6) 0 txt2.Text=”值为0”
Case (7) 1 To 10
txt2.Text=”值在1和10之间(包括1和10)”
Case (8) Is>10 txt2.Text=”值大于10” Case Else txt2.Text=”值小于0” End Select End Sub
4．下面程序段中，k循环共执行 (9) 3 次，在窗体上显示的结果是 (10)5 15 。
Dim b As Integer，k As Integer Let b=1
For k=1 To 5 Let b=b*k If b>=15 Then Exit For Else Let k=k+1 End If Next k Print k，b
5．阅读下面程序，当单击窗体之后，窗体上输出的是 (11)4 。
Private Sub Form_Click()
Dim i As Integer, j As Integer Dim k As Integer For i = 0 To 10 Step 3 For j = 1 To 10
If j >= 5 Then i = i + 4: Exit For j = j + 1 k = k + 1 Next
If i > 8 Then Exit For Next Print k End Sub
三、编程题 1． 编程计算
11111的值，其中n=20。 ????...?1?22?33?44?5n?(n?1)Private Sub Command1_Click()
Dim sngAmount As Single Dim int1 As Integer sngAmount=0 For int1= 1 To 20
sngAmount=sngAmount+1/int1/(int1+1) Next int1
Text1.Text=sngAmount End Sub
结果为0.9523811
2． 某公司每年的销售收入均比前一年增长10个百分点，按此增长率，需要多少年实现销
售收入翻两番的目标？
Private Sub Command1_Click() Dim sng1 As Single Dim int1 As Integer Sng1=1 Do
Sng1= sng1*1.1 Int1=int1+1 Loop Until sng1>4 Print int1 End Sub 结果为15年
第
6章习题
一、选择题
1．Sub过程与Function过程最根本的区别是___D_____。 (A)前者可以使用Call或直接使用过程名调用，后者不可以 (B)后者可以有参数，前者不可以 (C)两种过程参数的传递方式不同 (D)前者无返回值，但后者有返回值
2．在定义函数过程时，不可能用到的关键字是___C_____。
(A)Exit (B)As (C)Sub (D)End
3．在定义通用过程时，下列关键字中不能用来修饰形参的是___D_____。 (A)ByVal (B)ByRef (C)Optional (D)Static
二、判断题
1．如果过程的一个形参使用了ByRef修饰，且调用时相应的实参是一个变量，则实参的变量的数据类型必须与形参相同。?
2．因为函数有返回值，所以只能用在表达式中，不能使用Call语句调用。X 3．事件过程只能在事件发生时由系统调用，不能在程序中使用代码直接调用。X 4．在函数过程中，如果不给函数名赋值，则函数不返回任何值。X
5．定义通用过程时有几个形参，则调用该过程时就必须提供几个实参。X
三、填空题
1． 在过程调用中，参数的传递可分为按值传递和按地址传递两种方式，其中按地址传递
（1） 是默认方式。使用 ByVal（2） 关键字来修饰形式参数，可以使之按值传递。 2． 阅读下面程序，当Value过程形参前有ByVal关键字时，单击窗体，在窗体上显示的第
一行内容是 （3）20 10 ，第二行内容是 （4）10 15 。若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是 20 10（5） ，第二行内容是 （6）20 10 。
Private Sub Value(ByVal m As Integer, ByVal n As Integer) m = m * 2: n = n - 5 Print m, n End Sub
Private Sub Form_Click()
Dim x As Integer, y As Integer x = 10: y = 15 Call Value(x, y) Print x, y
End Sub
3．下面是一个按钮的事件过程，过程中调用了自定义函数。单击按钮在窗体上输出的结果第一行是 （7）1 6 ，第五行是 （8）5 26 。 Private Sub Command1_Click() Dim x As Integer, y As Integer Dim n As Integer, z As Integer x = 1: y = 1
For n = 1 To 6 z = f1(x, y) Print n, z Next End Sub
Private Function f1(x As Integer, y As Integer) As Integer Dim n As Integer Do While n <= 4 x = x + y n = n + 1 Loop f1 = x End Function
《程序设计基础（VB）》作业
第1章习题
1． 什么是对象？什么是对象的属性、方法和事件？
答；是在程序设计思想中，自然界中所有的事物（包括计算机）都可以被看做一个的对象（Object）.如：人、杯子、桌子，程序界面中的文本框、单选框、复选框和按钮也是对象。 ,属性是一个对象所具有的性质、特征。方法是对象所具有的动作和行为。事件是对象能够识别并作出反应的外部刺激。
2． Visual Basic有哪些不同的版本，你上机使用的是哪一个版本？
答；有纵向版本，如VB1.0、VB3.0、VB5.0以及VB6.0，在Visual Basic语言的发展过程中，每一次大的改进都伴有新版本的诞生。这种版本从时间上可以看成“纵向版本”。
有横向版本，其中又分为本地化版本和不同类型用户版本。 在同一个“纵向版本”下还有不同的“横向版本”。例如，同样是Visual Basic 6.0，Microsoft公司针对不同的国家和地区对它进行了“本地化”，有Visual Basic 6.0简体中文版、Visual Basic 6.0繁体中文版、Visual Basic 6.0日文版等 。
除了推出Visual Basic 的“本地版”，Microsoft还为不同类型的用户提供了不同的版本，如Visual Basic 6.0有学习版（Learning Edition）、专业版（Professional Edition）和企业版（Enterprise Edition）。
我使用的是Visual Basic 6.0中文专业版。
第2章习题
四、简答题
1．什么是注释？Visual Basic 程序的注释符是什么？为什么要使用注释？
答；在程序中添加的说明文字。Visual Basic把“?”（英文的单引号）作为注释符。 注释内容主要用来解释语句、过程的作用，以便他人或开发者本人日后能够读懂程序。 2．Visual Basic中续行符是什么？为什么要续行？注释行能不能使用续行符？ 答：是“-”（空格与下划线）。因为代码编辑器中文本不自动换行，太长的语句不能在窗口中方便地查看，需要把一条语句分两行或多行书写，在每个未完的行末加续行符。可以使用续行符。
3，图2.1所示的界面是由多少个控件组成的？它们的类型名分别是什么？ 答：1个窗体、4个标签、4个文本框、1个命令按钮
第3章习题
四、找出合法的变量名
3M，x2，?，[，e，PI，OK，DIM，dim，+a，we$，_name，a+b
第5章习题
三、编程题
3． 编程计算1-2+3-4+5-6…?n的值，其中n由文本框输入(n?1)。 Private Sub Command1-Click() Dim intN As Integer Dim int1 As Integer Dim intSum As Integer Dim intSng As Integer intSng=1
intN=CInt(Text1.Text) For int1=1 To intN
intSum=intsum+intsng*int1 intSng= -intSng Nxet int1
Text2.Text=intSum End Sub
4． 编程计算1?2?3?4?...?9?10的值 Private Sub Command1-Click() Dim int1 As Integer Dim Sng1 As Single Sng1=0
For int1=1 To 10
Sng1=sng1+int1?int1
1234910