发布时间 : 星期二 文章VB 复习更新完毕开始阅读bf7fa604844769eae009edb0
4
实验一补充习题
1．打开工程文件Dsg0103.vbp，在标题为“数值运算”的窗体Form1上，添加一个标题为“请输入整数n”的标签Label1；然后再添加二个文本内容为空的文本框Text1和Text2；最后添加一个标题分别为“立方根”命令按钮Command1。程序运行时，在Text1中输入一个正整数n，单击“立方根”按钮，在Text2中Text1中输入数字的立方根，运行界面如下图所示。
完成上述功能后，以原文件名保存窗体（Dsg0103.frm）和工程（Dsg0103.vbp）。
实验二补充习题
1．打开工程文件Dsg0202.vbp，在标题为“平均成绩”的窗体Form1上，添加三个标题分别为“语文成绩”、“数学成绩”和“英语成绩”的标签Label1、Label2和Label3；然后再添加一个标题为“平均分”的命令按钮Command1；最后添加四个文本内容为空的文本框Text1、Text2、Text3和Text4，其中Text4的文本内容不可编辑。程序运行时，在Text1、Text2和Text3中分别输入3门课的成绩，单击“平均分”按钮，计算它们的平均成绩，并在Text4中输出计算结果（保留2位小数），运行界面如下图所示。
完成上述功能后，以原文件名保存窗体（Dsg0202.frm）和工程（Dsg0202.vbp）。
Dim a As Single, b As Single, c As Single, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) s = (a + b + c) / 3 s = Format(s, \Text4.Text = s
实验3补充习题
2．打开工程文件Dsg0302.vbp，在标题为“坐标象限”的窗体Form1上，添加两个标题分别为“坐标x”和“坐标y”的标签Label1和Label2；然后再添加三个文本内容为空的文本框Text1、Text2和Text3；最后添加一个标题为“判断”的命令按钮Command1。程序运行时，在Text1和Text2中分别输入某点的坐标值x和y（不等于0），单击“判断”按钮，根据x和y的值判断该坐标点在哪个象限，并在Text3中显示判断结果，运行界面如图3-8所示。完成上述功能后，以原文件名保存窗体（Dsg0302.frm）和工程（Dsg0302.vbp）。
（a）输入“7.5”和“8”
（b）输入“-5.8”和“-6.6”
图3-8 坐标象限的运行界面
【提示】
当x>0且y>0，则坐标点位于第一象限；当x<0且y>0，则坐标点位于第二象限；当x<0且y<0，则坐标点位于第三象限；当x>0且y<0，则坐标点位于第四象限。
Dim x!, y! x = Text1.Text y = Text2.Text
If x > 0 And y > 0 Then Text3.Text = \第一象限\ElseIf x < 0 And y > 0 Then Text3.Text = \第二象限\ElseIf x < 0 And y < 0 Then Text3.Text = \第三象限\Else
Text3.Text = \第四象限\ End If
Print \请输入不为0的数字\
3．打开工程文件Dsg0303.vbp，在标题为“竞赛获奖”的窗体Form1上，添加一个“输入笔试、机试和面试的成绩：”的标签Label1；然后添加一个标题为“获奖”的命令按钮Command1；最后添加四个文本内容为空的文本框Text1、Text2、Text3和Text4。程序运行时，在三个文本框中分别输入某学生3科竞赛成绩，单击“获奖”按钮，如果总成绩在285~300之间，则在Text4中输出“Gold Medal”；如果总成绩在270~284，则在Text4中输出“Silver Medal”；如果总成绩在240~269，则在Text4中输出“Bronze Medal”；如果总分低于240，
但其中某科成绩特别优秀（单科不低于95），则在Text4中输出“Honor Medal”；其他情况，则在Text4中输出“No Medal”，运行界面如图3-9所示。完成上述功能后，以原文件名保存窗体（Dsg0303.frm）和工程（Dsg0303.vbp）。
（a）输入“98、95、96”
（b）输入“81、82、85” 图3-9 竞赛获奖的运行界面
（c）输入“76、65、96”
Dim a!, b!, c!, sum! a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) sum = a + b + c
If sum > 285 And sum < 300 Then Text4.Text = \
ElseIf sum < 284 And sum > 270 Then Text4.Text = \
ElseIf sum < 269 And sum > 240 Then Text4.Text = \
ElseIf sum < 240 And a > 95 Or b > 95 Or c > 95 Then Text4.Text = \Else
Text4.Text = \ End If
实验四补充习题
1．打开工程文件Dsg0401.vbp，在标题为“整除求和”的窗体Form1上，添加一个标题为“请输入整数n”的标签Label1；然后再添加一个标题为“求和”的命令按钮Command1；接着再添加一个文本内容为空的文本框Text1；最后添加一个标题为空、有边框的标签Label2。程序运行时，在Text1中输入一个整数n，单击“求和”按钮，求1~n之间能被3整除，但不能被7整除的所有整数之和，并将求和结束显示在Label2中，运行界面如图4-1所示。
完成上述功能后，以原文件名保存窗体（Dsg0401.frm）和工程（Dsg0401.vbp）。
图4-1 整除运算的运行
Dim n As Integer, i As Integer, sum As Integer
n = Val(Text1.Text)
sum = 0 For i = 1 To n
If i Mod 3 = o And i Mod 7 <> 0 Then
sum = sum + i i = i + 1 End If Next i
Label2.Caption = sum
2．打开工程文件Dsg0403.vbp，在标题为“素数累加”的窗体Form1上，添加两个标题分别为“整数m”和“整数n”的标签Label1和Label2；然后再添加三个文本内容为空的文本框Text1、Text2和Text3；最后添加一个标题为“求和”的命令按钮Command1。程序运行时，在Text1和Text2中分别输入正整数m和n（其中n＞m≥2），单击“求和”，求m至n之间全部素数之和，并将求和结果显示在Text3中，运行界面如图4-2所示。
完成上述功能后，以原文件名保存窗体（Dsg0403.frm）和工程（Dsg0403.vbp）。
图4-2 素数累加的运行界面
Dim m As Integer, n As Integer, sum As Integer, f As Boolean
sum = 0
m = Val(Text1.Text) n = Val(Text2.Text) If n > m And m >= 2 Then
For i = m To n f = True For j = 2 To i - 1 If i Mod j = 0 Then
f = False Exit For End If Next j If f = True Then sum = sum + i