VB设计习题含答案.doc

程序设计作业 VB 2012年6月8日4 -1）设计一个计算购书价程序，界面如图所示。要求：1） 界面上的文字全部为宋体五号字2） 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键3） 编写代码，使得运行时焦点定位在DJ文本框中，输入单价后，按Tab键可输入数量。在输入单价和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框ZJ中，单击“退出（X）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在ZJ文本框中。提示：先将文本框中的内容使用Val函数转换后再进行计算。4） 将ZJ文本框改换成标签，将标签的BorderStyle属性设置为1-Fixed Single，用标签输出计算结果。 文本框DJ 文本框SJ文本框ZJ源程序：Private Sub Command1_Click()Dim a As Single, b As Single, d As Singlea = Val(DJ.Text)b = Val(SJ.Text)d = a * bZJ = Format(d, 0.00)End Sub Private Sub Command2_Click()EndEnd 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()Dim a As Single, b As Single, c As Single, d As Singlea = Val(T1.Text)b = Val(T2.Text)c = Val(T3.Text)d = a * b * (c / 10)TRESULT = Format(d, 0.00)End SubPrivate Sub Command2_Click()T3.SetFocusT3.SelStart = 0T3.SelLength = Len(T3.Text)T1.Text = T2.Text = T3.Text = TRESULT.Text = End SubPrivate Sub Command3_Click()EndEnd Sub截图：（4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个1,100之间的随机正数，单击“计算”按钮，求这两数的和。源程序：Private Sub Command1_Click()Text1 = Int(100 * Rnd + 1)Text2 = Int(100 * Rnd + 1)End SubPrivate Sub Command2_Click()Text3 = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Form_Load()End Sub截图：（5-2）（5-1）从文本框中输入一个数，单击“判断”按钮判断它能否同时被3、5、7整除，若能整除，则在窗体上显示“能同时被3、5、7整除”，否则显示“不能整除”源程序：Private Sub Command1_Click() x = Val(Text1.Text) A = x Mod 3 If A 0 Then Label2.Caption = 结果：此数不能被3、5、7整除 B = x Mod 5 ElseIf B 0 Then Label2.Caption = 结果：此数不能被3、5、7整除 C = x Mod 7 ElseIf C 0 Then Label2.Caption = 结果：此数不能被3、5、7整除 Else: Label2.Caption = 结果：此数能被3、5、7整除 End IfEnd Sub截图：（5-3）（5-2）用InputBox函数输入三个数，选出其中的最大数和最小数，显示与窗体上。源程序：Private Sub Form_Click() A = InputBox(请输入数据1：, 数据输入) B = InputBox(请输入数据2：, 数据输入) C = InputBox(请输入数据3：, 数据输入)Max = AMin = AIf B Max Then Max = BIf B Max Then Max = CIf C Min Then Min = C Print 最大值为：; Max Print 最小值为：; MinEnd Sub截图：（5-6）（5-5）使用Select Case语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。评分标准如下：优90,100良80,90)中70,80)及格60,70)不及格0,60)如果输入的分数不在0,100范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。源程序：Private Sub Command1_Click()a = Val(Text1.Text)Select Case a Case Is 60 Label2.Caption = 不及格 Case Is 70 Label2.Caption = 及格 Case a 80 Label2.Caption = 中 Case Is 90 Label2.Caption = 良 Case Is = Form1.ScaleWidth Then Label1.Left = -Label1.Width Else Label1.Left = Label1.Left + 200 End IfEnd Sub截图：（7-9）（9-9）设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏32度），最大值是摄氏100度（或华氏212度），如图所示。运行时，当移动滚动条时，摄氏及华氏文本框能正确显示相应的温度值源程序：Private Sub Form_Load()VScroll1.Min = 0 VScroll1.Max = 10000 VScroll1.SmallChange = 1 VScroll1.LargeChange = 100 VScroll1.Value = 10000 Call AEnd SubPrivate Sub A() Dim X As Single, Y As Single, Z As Single X = 10000 - VScroll1.Value Y = X / 100 Z = Y * 9 / 5 + 32 Text1.Text = Y & C Text2.Text = Z & FEnd SubPrivate Sub VScroll1_Change() Call AEnd SubPrivate Sub VScroll1_Scroll() Call AEnd Sub截图：（8-1）（7-2）用InputBox函数输入10个数与数组A中，输入后将这10个数显示在文本框中，并统计正数的个数，正数的和，负数的个数，负数的和。用Print方法将结果打印在窗体上，设计界面、运行结果如图所示。源程序：Dim A(10) As IntegerDim c As Single, b As Single, all1 As Single, all2 As SinglePrivate Sub Form_Click()Label1.Caption = For i = 1 To 10 A(i) = Val(InputBox(请输入第 & Str(i) & 个数, 数据输入, ) Text1.Text = Text1.Text & Str(A(i) c = 0 b = 0 all1 = 0 all2 = 0 If A(i) 0 Then c = c + 1 all1 = all1 + A(i) ElseIf A(i) 0 Then b = b + 1 all2 = all2 + A(i) Else c = c + 0 b = b + 0 all1 = all1 + 0 all2 = all2 + 0 End If Next i CurrentX = 1200 CurrentY = 2000 Print 正数的个数; c; 正数的和; all1 CurrentX = 1200 Print 负数的个数; b; 负数的和; all2End Sub截图：（8-2）（7-11）设计如图所示的界面，其中，第一行为控件数组Text1，第二行为控件数组Text2，运行时，输入任意内容于控件数组Text1中，点击“交换”按钮将控件数组Text1中的内容按相反的次序显示与控件数组Text2中。源程序：Dim A(1 To 10)Private Sub Command1_Click() For i = 1 To 10 A(i) = Text1(i - 1).Text Text2(10 - i).Text = A(i) Next iEnd 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)源程序：Option ExplicitFunction Qiuhe(n As Integer) Dim a As Integer, F As Long F = 1 For a = 1 To n F = F + a Next a Qiuhe = FEnd FunctionPrivate Sub Command1_Click() Dim m As Integer, n As Integer, p As Integer, y As Double m = Val(Text1.Text) n = Val(Text2.Text) p = Val(Text3.Text) y = (Qiuhe(m) + Qiuhe(n) / Qiuhe(p) Text4.Text = Trim(Str(y)End Sub截图：（9-3）（8-3）在窗体模块中自定义一个Sub过程，按给定的不同字符及行数在图片框中打印行数相同。运行时，单击图片框，用InputBox输入任一字符及行数，调用该过程打印图形。源程序：Private Sub Picture1_Click() Picture1 = LoadPicture() Dim A As String Dim n As Integer A = I