VB设计习题选附答案

1、1姓名： 杨家辉班级：经管院09管信1班2010年6月27日沖程序设计作学号:200930182注：1.黑色题号是第一版教材的，红色题号是第二版教材的，只有一个题号的是第一、二版教材的2.将运行结果的截图粘贴到题下，并将程序代码也复制到题下。3 期末打印出来交上来。（4 -1）设计一个计算购书价程序，界面如图所示。要求：1） 界面上的文字全部为宋体五号字2） 按图示给文本框取名。为“计算总价（C）”和“退出（X）”按钮设访问键3） 编写代码，使得运行时焦点定位在DJ 文本框中，输入单价后，按Tab 键可输入数量。在输入单价和数量后，点击“计算总价（C）”按钮，将计算出的总价钱，先是在文本框 Z

2、J 中，单击“退出（X） 按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在 ZJ 文本框中。提示：先将文本框中的内容使用 Vai 函数转换后再进行计算。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

3、Sub DJ_Change()ZJ.Text =End SubPrivate Sub DJ_GotFocus()DJ.SelStart = 0DJ.SelLength = Len(DJ.Text) EndSubPrivate Sub SJ_Change()ZJ.Text =End SubPrivate Sub SJ_GotFocus()SJ.SelStart = 0SJ.SelLength = Len(SJ.Text)End Sub（代码二）Private Sub Command1_Click()3Label4.Caption = Val(DJ.Text) * Val(SJ.Text)4DJ.

4、SetFocusPrivate Sub Command2_Click()EndEnd SubPrivate Sub DJ_GotFocus()DJ.SelStart = 0DJ.SelLength = Len(DJ.Text)Private Sub SJ_GotFocus()SJ.SelStart = 0SJ.SelLength = Len(SJ.Text) End Sub（4 -2）设计一个收款计算程序，界面如图所示。要求：1） 三个输入文本框依次取名为T1、T2、T3,应付款文本框取名为 TRESULT。2） 运行时焦点在折扣一栏，输入折扣后，按Tab 键可输入单价，再按 Tab 键可输入

5、数量。3） 单击“计算”按钮计算应付款，应付款内容为只读。4） 单击“清除”按钮或“ ESC”键清除应付款内容，并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。提示：使用以下语句定位焦点并选中文本T3.SetFocusT3.SelStart = 0T3.SelLe ngth = 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(

6、)TRESULT.Text =T3.SetFocusT3.SelStart = 0T3.SelLength = Len(T3.Text)End SubPrivate Sub Command3_Click()EndEnd SubEnd Sub5End Sub6(4 -3) (2-10)设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按 一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5 磅。文本框各属性如下：字号：.FontSize 下划线：FontUnderline.删除线：FontStrikethru粗体：FontBold斜体：FontltalicPriva

7、te 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)设计见面如图所示, 按钮，求这两数的和。Private Sub Command1_Click()RandomizeText1.Text = Int(100 * Rnd + 1)Text2.Text = Int(100 * Rnd + 1

8、)Text3.Text =End SubPrivate Sub Command2_Click()Text3.Text = Val(Textl.Text) + Val(Text2.Text)End SubPrivate Sub Command1_Click()Textl.FontSize = Textl.FontSize + 5End SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize - 5End Sub塾控制文字的字形一字号，效果Private Sub Command3_Click()Text1.FontUnderli

9、ne = TrueEnd Sub0上輪天过:海0趁火打劫06.声东击两0匸无申生有08.暗昨仓増大缩小下划线删除钱粗体斜体单击“出题”按钮，产生任意两个1,100之间的随机正数，单击“计算”7(5-2) ( 5-1)从文本框中输入一个数，单击“判断”按钮判断它能否同时被 则在窗体上显示“能同时被3、5、7 整除”，否则显示“不能整除”3、5、7 整除，若能整除,Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenPrin

10、t 能同时被 3,5,7 整除ElsePrint 不能整除End IfEnd Sub电Foral匚叵区Private Sub Form_Load()CurrentX = 900CurrentY = 1435End Sub诸输入一个数结果 能同时被3, 5”丁整除(5-3)(5-2)用 InputBox 函数输入三个数，选出其中的最大数和最小数，显示与窗体上。Private Sub Form_Load()Forml.AutoRedraw = TrueDim a As Integer, b As Integer, c As Integera = Val(lnputBox(请输入第一个数,请输入三个

11、数) b =Val(InputBox(请输入第二个数,请输入三个数) c =Val(InputBox(请输入第三个数,请输入三个数)If a b Thent = a: a = b: b = tEnd IfIf a c Thent = a: a = c: c = tEnd IfIf b c Thent = b: b = c: c = tEnd IfPrint 最大数为：；aPrint 最小数为:;cEnd Sub89(5-6)( 5-5)评分标准如下:使用 Select Case 语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。优90,100良80,90)中70,80)及格60

12、,70)不及格0,60)如果输入的分数不在0,100范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。Private Sub Command1_Click()Dim a%a = Val(Text1.Text)Text1.SetFocusText1.SelStart = 0 Text1.SelLength = Len(Text1.Text)If a 100 ThenMsgBox 输入错误，请重新输入,64, errorElseSelect Case aCase 0 To 59Label2.Caption =不及格Case 60 To 69Label2.Caption =及格

13、Case 70 To 79Label2.Caption =中Case 80 To 89Label2.Caption =良Case 90 To 100Label2.Caption =优Case ElseMsgBox 输入错误，请重新输入,64, error10End SelectEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub(6-1) (6-6)单击某命令按钮输出3100 之间的所有奇数、奇数之和。将奇数显示与带垂直滚动条的文本框中，奇数之和显示与另一文本框中。Private Sub Command1_Click()Dim i As Int

14、eger, sum As Integer sum = 0For i = 3 To 100If i Mod 2 0 ThenText1.Text = Text1.Text & Str(i) & vbCrLfsum = sum + iEnd IfNext iText2.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 = 1Do While n = Form1.Sca

15、leWidth ThenLabel1 丄 eft = 0老师您辛1JuiuiMi-ii-aiuiuiuii-iiuiuiuil开皓停止15Labell .Left = Labell.Left + 100End IfEnd Sub（7-9） （9-9）设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏32 度），最大值是摄氏 100 度（或华氏 212 度），如图所示。运行时，当移动滚动条时，摄氏及华氏文本框能正确显 示相应的温度值Private Sub Form_Load()VScrolll.Min = 32VScroll1.Max = 212 End SubPrivate

16、Sub VScroll1_Change()Text1.Text = VScroll1.ValueText2.Text = Int(5 / 9 * (VScrolll.Value - 32)End SubPrivate Sub VScroll1_Scroll()Textl.Text = VScrolll.ValueText2.Text = Int(5 / 9 * (VScrolll.Value - 32)End Sub（8-1） （ 7-2）用 InputBox 函数输入 10 个数与数组 A 中，输入后将这 10 个数显示在文本框中，并统计正 数的个数，正数的和，负数的个数，负数的和。用Pri

17、nt 方法将结果打印在窗体上，设计界面、运行结果如图所示。Private Sub Form_Click()Labell.Visible = FalseDim Number(1 To 10) As IntegerDim ZSCount As Integer, FSCount As IntegerDim ZSSum As Integer, FSSum As IntegerFor I = 1 To 10Number(I) = Val(lnputBox( 请输入第& I & 个数,数据统计)Text1.Text = Text1.Text & Number(I) & If

18、 Number(I) 0 ThenZSCount = ZSCount + 1ZSSum = ZSSum + Number(I)ElseIf Number(I) a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext imax = a(20)End SubPrivate Sub Command2_Click()Text2.Text = maxEnd Sub286640484817741096创T62A(9-1) (8-1)设计如图所示的界面，在窗体模块中编写一函数过程，计算1+2+3+, +n，运行时输入n, p 的值，单击“ y= ”按

19、钮调用该函数过程计算一下 y 值，运算结果保留 4 位小数。运行时界面如图。Y=(1+2+ , +m)+(1+2+ , +n) (1+2+, +p)m，Function Fact1(n As Integer) As LongDim F As LongF = 0For i = 1 To nF = F + iNext iFact1 = FEnd FunctionSub Fact2(n As Integer, F As Long)F = 0For i = 1 To nF = F + iNext iEnd SubPrivate Sub Command1_Click()Dim m%, n%, p%Dim

20、 f1 As Long, f2 As Long, f3 As Longm = 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 LongDim F As LongF = 0For i = 1 To nF = F + iNext iFact1 = FEnd FunctionSub Fact2(n As Integer, F As Long)F = 0For i = 1 To nF = F + iNext iEnd SubPrivate Sub Command1_Click()Di