《VisualBasic编程与应用》课程作业评讲(2)

《Visual Basic编程与应用》课程作业评讲(2)责任教师敖开云下面我们将对形成性考核作业册(第二次作业)中的第三题和第四题进行评讲。

下文中，黑色的是问题与答案，绿色是说明和解释。

三、阅读下列程序，写出程序运行结果1．Private Sub Form_Click()Static Sum As IntegerFor I=1 To 100Sum=Sum+INext IPrint SumEnd Sub此题的考核知识点是：第三章中流程控制语句的用法（for循环）。

分析：从题目含义分析，此题是程序阅读题，主要检验学生对For循环的掌握情况，循环变量i的取值是1～100，循环体中只有一条语句：Sum=Sum+I，从该语句可以看出是对i进行累加，所以该程序的功能是求1+2+3+4+…+100的和。

答案：5050注意：此题容易出错地方是累加求和程序格式。

2．Private Sub Form_ Click()A=10:b=15:c=20:d=25Print A; Spc(5); b; Spc(7); cPrint A; Spc(8); b; Space$ (5); cPrint c; Spc(3); "+"; Spc(3); d;Print Spc(3); "="; Spc(3); c+dEnd Sub此题的考核知识点是：第五章中的Print语句和SPC(n)函数。

分析：从题目含义分析，此题是程序阅读题，主要检验学生对Print语句和SPC(n)函数的掌握情况，Print语句是输出语句，SPC(n)函数是两个数据之间空n个空格。

答案：注意：在程序中使用SPC(n)函数时，各个表达式之间用“；”隔开。

3．Private Sub Form _ Click( )For i% = 1 To 3For j % = 1 To iPrint LTrim(Str(i%)) + "*" + LTrim(Str(j%)) + "="; i% * j%;Next j %PrintNext i%End Sub此题的考核知识点有：⑴第三章中流程控制语句的用法（for循环）；⑵第三章中的常用函数(LTrim)的使用方法⑶第五章中的Print语句的功能。

分析：从题目含义分析，此题是程序阅读题，主要检验学生对双重循环的掌握情况，这是典型的打印九九表的程序，外循环控制行，内循环控制列。

答案：注意：此题的难点是很多学生读不懂双循环程序。

4．Private Sub Commandl_Click( )Dim a, b As Integera=3.4b=3.4Textl. Text = aText2. Text = bEnd Sub此题的考核知识点是：第二章中文本框的使用方法。

分析：从题目含义分析，此题是程序阅读题，主要检验学生对文本框控件的掌握情况，此题很简单，就是将变量a，b的值送到文本框text1和text2中显示出来，但此题的难点是第一条语句：Dim a, b As Integer，此语句实际上只是定义了变量b是整型，a仍然是实数，所以变量a的值应该为3.4，b的值应该为3。

答案：3.4 3注意：此题容易出错的地方就是变量a、b的值。

5. Private Sub Form _ Click( )For i =1 To5Print Tab(11 - i);For j=l To i * 2- 1Print" * ";Next jPrintNext iEnd Sub此题的考核知识点有：⑴第三章中流程控制语句的用法（for循环）；⑵第五章中的常用函数(Tab)的使用方法⑶第五章中的Print语句的功能。

分析：从题目含义分析，此题是程序阅读题，主要检验学生对双重循环的掌握情况，这是典型的打印三角形的程序，外循环控制行，内循环控制列，表示输出多少个“*”，Tab(11 - i)控制每行第一个“*”的输出位置。

答案：*************************注意：此题的难点是很多学生读不懂双循环程序。

四、程序设计题1．购物优惠程序。

某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物(1)在100元以上者，按九五折优惠；(2)在200元以上者，按九折优惠；(3)300元以上者，按八折优惠；(4)500元以上者按七折优惠。

在窗体上添加两个文本框和一个命令按钮，要求在Textl中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。

程序运行结果如图4所示。

图4此题的考核知识点是：第二章命令按钮、文本框的用法和编程。

分析：从题目含义分析，此题的核心问题是考if语句的嵌套，满足不同的条件，有不同的折扣优惠，所以就要用if语句的嵌套来完成，并且必须在“计算”按钮的click事件中编程。

答案：Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)If x < 100 Theny = xElseIf x < 200 Theny = 9.5 * xElseIf x < 300 Theny = 0.9 * xElseIf x < 500 Theny = 0.8 * xElsey = 0.7 * xEnd IfEnd IfEnd IfEnd IfText2.Text = yEnd Sub注意事项：本题应注意2个问题，第一，计算时必须将文本框text1中的值转换为数字型；第二，注意if语句的嵌套格式。

2．输出100～200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行结果如图5所示。

图5此题的考核知识点有2个：⑴用FOR循环求100～200之间不能被3整除的数⑵向列表框中添加项目。

分析：从题意分析，在窗体中添加一个标签和一个列表框，并设置相应的属性，由于要求输出100～200之间不能被3整除的的数，要求用Do语句的一种形式来实现，即do while---loop语句来实现。

答案：Private Sub Form_Load()x=100do while x<=200If x Mod 3 <> 0 Then List1.AddItem Str(x)x=x+1loopEnd Sub注意事项：本题容易出错的地方是判断不能被3整除的条件：“x Mod 3 <> 0”。

3．编写程序，打印如下的乘积表图6此题的考核知识点是：第三章双重循环的编程。

分析：此题输出的是一个表格，它具有行和列，这种题型必须用双循环，外循环控制行数，内循环控制列数。

答案：Private Sub Form_Click()Print "*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12PrintFor I=15 to 18Print I;For j=3 to 12 Step 3Print Tab(3*j);j*I;Next jPrintNext IEnd sub注意事项：此题容易出错的地方是不要忘了换行语句“print”。

4．设计一个计算程序。

该程序用户界面如图7所示。

要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。

如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。

按结束，则退出。

图7此题的考核知识点有2个：⑴第二章中的命令按钮、文本框的用法和编程；⑵第三章中的单选按钮编程。

分析：从题意分析，首先在窗体中添加一个框架控件，4个单选按钮、1个标签、1个文本框和1个命令按钮，并对每个控件进行相应的属性设置，然后对每个单选按钮进行编程。

答案：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Option1_Click()Text1.Text = 10 * 2End SubPrivate Sub Option2_Click()Text1.Text = 10 / 2End SubPrivate Sub Option3_Click()Text1.Text = 10 + 2End SubPrivate Sub Option4_Click()Text1.Text = 10 - 2End Sub注意事项：此题容易出错的地方是不要选错了单选按钮的事件“click”。

5．编写输入一个0～6数字，显示汉字对照输出星期的Function过程。

程序运行结果如图8所示。

图8此题的考核知识点有2个：⑴第二章中的文本框的用法和编程；⑵第四章中的KeyPress事件。

分析：从题意分析，首先在窗体中添加一个框架控件、1个文本框和1个标签，并进行相关的属性设置，此题重点是对文本框text1的KeyPress事件进行编程，用于调用Function 过程。

答案：Private Function Day(n As Integer)Select Case nCase 0Day = "星期日" & Chr(13) & "(Sunday)"Case 1Day = "星期一" & Chr(13) & "(Monday)"Case 2Day = "星期二" & Chr(13) & "(Tuesday)"Case 3Day = "星期三" & Chr(13) & "(Wednesday)"Case 4Day = "星期四" & Chr(13) & "(Thursday)"Case 5Day = "星期五" & Chr(13) & "(Friday)"Case 6Day = "星期六" & Chr(13) & "(Saturday)"End SelectEnd FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim n As Integern = Val(Text1.Text)If KeyAscii = 13 ThenIf n >= 0 And n < 7 ThenLabel1.Caption = Day(n)ElseMsgBox "请输入0~6之间的整数！"End IfEnd IfText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub注意事项：此题容易出错的地方是Select Case语句的用法。