设计习题选附答案.doc

程序设计作业 VB姓名： 杨家辉 学号：20093018 班级：经管院09管信1班 2010年6月27日注：1. 黑色题号是第一版教材的，红色题号是第二版教材的，只有一个题号的是第一、二版教材的2. 将运行结果的截图粘贴到题下，并将程序代码也复制到题下。3期末打印出来交上来。（4 -1）设计一个计算购书价程序，界面如图所示。要求：1） 界面上的文字全部为宋体五号字2） 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键3） 编写代码，使得运行时焦点定位在DJ文本框中，输入单价后，按Tab键可输入数量。在输入单价和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框ZJ中，单击“退出（X）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在ZJ文本框中。提示：先将文本框中的内容使用Val函数转换后再进行计算。4） 将ZJ文本框改换成标签，将标签的BorderStyle属性设置为1-Fixed Single，用标签输出计算结果。(代码一) Private Sub Command1_Click() ZJ.Text = Val(DJ.Text) * Val(SJ.Text) DJ.SetFocusEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub DJ_Change() ZJ.Text = End SubPrivate Sub DJ_GotFocus() DJ.SelStart = 0 DJ.SelLength = Len(DJ.Text)End SubPrivate Sub SJ_Change() ZJ.Text = End SubPrivate Sub SJ_GotFocus() SJ.SelStart = 0 SJ.SelLength = Len(SJ.Text)End Sub (代码二)Private Sub Command1_Click() Label4.Caption = Val(DJ.Text) * Val(SJ.Text) DJ.SetFocusEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub DJ_GotFocus() DJ.SelStart = 0 DJ.SelLength = Len(DJ.Text)End SubPrivate Sub SJ_GotFocus() SJ.SelStart = 0 SJ.SelLength = Len(SJ.Text)End Sub（4 -2）设计一个收款计算程序，界面如图所示。要求：1） 三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。2） 运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。3） 单击“计算”按钮计算应付款，应付款内容为只读。4） 单击“清除”按钮或“ESC”键清除应付款内容，并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。提示：使用以下语句定位焦点并选中文本T3.SetFocusT3.SelStart = 0T3.SelLength = Len(T3.Text)5） 单击“退出”按钮结束执行。Private Sub Command1_Click() TRESULT.Text = Val(T1.Text) * Val(T2.Text) * Val(T3.Text) * 0.1End SubPrivate Sub Command2_Click() TRESULT.Text = T3.SetFocus T3.SelStart = 0 T3.SelLength = Len(T3.Text)End SubPrivate Sub Command3_Click() EndEnd Sub（4 -3）（2-10）设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。文本框各属性如下：字号：.FontSize 下划线： FontUnderline. 删除线：FontStrikethru 粗体：FontBold 斜体：FontItalicPrivate Sub Command1_Click() Text1.FontSize = Text1.FontSize + 5End SubPrivate Sub Command2_Click() Text1.FontSize = Text1.FontSize - 5End SubPrivate Sub Command3_Click() Text1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click() Text1.FontStrikethru = TrueEnd SubPrivate Sub Command5_Click() Text1.FontBold = TrueEnd SubPrivate Sub Command6_Click() Text1.FontItalic = TrueEnd Sub（4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个1,100之间的随机正数，单击“计算”按钮，求这两数的和。Private Sub Command1_Click() Randomize Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1) Text3.Text = End SubPrivate Sub Command2_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub（5-2）（5-1）从文本框中输入一个数，单击“判断”按钮判断它能否同时被3、5、7整除，若能整除，则在窗体上显示“能同时被3、5、7整除”，否则显示“不能整除”Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then Print 能同时被3,5,7整除 Else Print 不能整除 End IfEnd SubPrivate Sub Form_Load()CurrentX = 900CurrentY = 1435End Sub（5-3）（5-2）用InputBox函数输入三个数，选出其中的最大数和最小数，显示与窗体上。Private Sub Form_Load() Form1.AutoRedraw = True Dim a As Integer, b As Integer, c As Integer a = Val(InputBox(请输入第一个数, 请输入三个数) b = Val(InputBox(请输入第二个数, 请输入三个数) c = Val(InputBox(请输入第三个数, 请输入三个数) If a b Then t = a: a = b: b = t End If If a c Then t = a: a = c: c = t End If If b c Then t = b: b = c: c = t End If Print 最大数为:; a Print 最小数为:; cEnd Sub（5-6）（5-5）使用Select Case语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。评分标准如下：优90,100良80,90)中70,80)及格60,70)不及格0,60)如果输入的分数不在0,100范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。Private Sub Command1_Click() Dim a% a = Val(Text1.Text) Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) If a 100 Then MsgBox 输入错误,请重新输入, 64, error Else Select Case a Case 0 To 59 Label2.Caption = 不及格 Case 60 To 69 Label2.Caption = 及格 Case 70 To 79 Label2.Caption = 中 Case 80 To 89 Label2.Caption = 良 Case 90 To 100 Label2.Caption = 优 Case Else MsgBox 输入错误,请重新输入, 64, error End Select End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub（6-1）（6-6）单击某命令按钮输出3100之间的所有奇数、奇数之和。将奇数显示与带垂直滚动条的文本框中，奇数之和显示与另一文本框中。Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 3 To 100 If i Mod 2 0 Then Text1.Text = Text1.Text & Str(i) & vbCrLf sum = sum + i End If Next i Text2.Text = sumEnd SubPrivate Sub Command2_Click() EndEnd Sub（6-10）（6-12）求1!+2!+3!+20!。Private Sub Form_Click() Dim n#, sum# sum = 0 n = 1 Do While n = Form1.ScaleWidth Then Label1.Left = 0 Else Label1.Left = Label1.Left + 100 End IfEnd Sub（7-9）（9-9）设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏32度），最大值是摄氏100度（或华氏212度），如图所示。运行时，当移动滚动条时，摄氏及华氏文本框能正确显示相应的温度值Private Sub Form_Load() VScroll1.Min = 32 VScroll1.Max = 212End SubPrivate Sub VScroll1_Change() Text1.Text = VScroll1.Value Text2.Text = Int(5 / 9 * (VScroll1.Value - 32)End SubPrivate Sub VScroll1_Scroll() Text1.Text = VScroll1.Value Text2.Text = Int(5 / 9 * (VScroll1.Value - 32)End Sub（8-1）（7-2）用InputBox函数输入10个数与数组A中，输入后将这10个数显示在文本框中，并统计正数的个数，正数的和，负数的个数，负数的和。用Print方法将结果打印在窗体上，设计界面、运行结果如图所示。Private Sub Form_Click() Label1.Visible = False Dim Number(1 To 10) As Integer Dim ZSCount As Integer, FSCount As Integer Dim ZSSum As Integer, FSSum As Integer For I = 1 To 10 Number(I) = Val(InputBox(请输入第 & I & 个数, 数据统计) Text1.Text = Text1.Text & Number(I) & If Number(I) 0 Then ZSCount = ZSCount + 1 ZSSum = ZSSum + Number(I) ElseIf Number(I) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i max = a(20)End SubPrivate Sub Command2_Click() Text2.Text = maxEnd Sub（9-1）（8-1）设计如图所示的界面，在窗体模块中编写一函数过程，计算1+2+3+n，运行时输入m，n，p的值，单击“y=”按钮调用该函数过程计算一下y值，运算结果保留4位小数。运行时界面如图。Y=(1+2+m)+(1+2+n)/(1+2+p)Function Fact1(n As Integer) As Long Dim F As Long F = 0 For i = 1 To n F = F + i Next i Fact1 = FEnd FunctionSub Fact2(n As Integer, F As Long) F = 0 For i = 1 To n F = F + i Next iEnd SubPrivate Sub Command1_Click() Dim m%, n%, p% Dim f1 As Long, f2 As Long, f3 As Long m = Val(Text1.Text) n = Val(Text2.Text) p = Val(Text3.Text) Text4.Text = Format(Fact1(m) + Fact1(n) / Fact1(p), 0.0000)End Sub（9-2）（8-2）将实习（9-1）改成用Sub过程求1+2+3+N，完成相同的功能。Function Fact1(n As Integer) As Long Dim F As Long F = 0 For i = 1 To n F = F + i Next i Fact1 = FEnd FunctionSub Fact2(n As Integer, F As Long) F = 0 For i = 1 To n F = F + i Next iEnd SubPrivate Sub Comman