VB设计习题选附答案Word下载.docx

1、 DJ.SelStart = 0 DJ.SelLength = Len（DJ.Text）Private Sub SJ_Change（）Private Sub SJ_GotFocus（） SJ.SelStart = 0 SJ.SelLength = Len（SJ.Text） （代码二） Label4.Caption = Val（DJ.Text） * Val（SJ.Text）（4 -2）设计一个收款计算程序，界面如图所示。1）三个输入文本框依次取名为T1、T2、T3，应付款文本框取名为TRESULT。2）运行时焦点在折扣一栏，输入折扣后，按Tab键可输入单价，再按Tab键可输入数量。3）单击“计算

2、”按钮计算应付款，应付款内容为只读。4）单击“清除”按钮或“ESC”键清除应付款内容，并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。使用以下语句定位焦点并选中文本T3.SetFocusT3.SelStart = 0T3.SelLength = Len（T3.Text）5）单击“退出”按钮结束执行。 TRESULT.Text = Val（T1.Text） * Val（T2.Text） * Val（T3.Text） * 0.1 TRESULT.Text = T3.SetFocus T3.SelStart = 0 T3.SelLength = Len（T3.Text）Private S

3、ub Command3_Click（）（4 -3）（2-10）设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。文本框各属性如下：字号：.FontSize 下划线： FontUnderline. 删除线：FontStrikethru 粗体：FontBold 斜体：FontItalic Text1.FontSize = Text1.FontSize + 5 Text1.FontSize = Text1.FontSize - 5 Text1.FontUnderline = TruePrivate Sub Com

4、mand4_Click（） Text1.FontStrikethru = TruePrivate Sub Command5_Click（） Text1.FontBold = TruePrivate Sub Command6_Click（） Text1.FontItalic = True（4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个1,100之间的随机正数，单击“计算”按钮，求这两数的和。 Randomize Text1.Text = Int（100 * Rnd + 1） Text2.Text = Int（100 * Rnd + 1） Text3.Text = Text3.

5、Text = Val（Text1.Text） + Val（Text2.Text）（5-2）（5-1）从文本框中输入一个数，单击“判断”按钮判断它能否同时被3、5、7整除，若能整除，则在窗体上显示“能同时被3、5、7整除”，否则显示“不能整除” 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不能整除 End IfPrivate Sub Form_Load（）CurrentX = 900CurrentY = 1435（5-3

6、）（5-2）用InputBox函数输入三个数，选出其中的最大数和最小数，显示与窗体上。 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 c Then a = c: c = t If b 100 Then MsgBox 输入错误,请重新输入, 64, error Select C

7、ase a Case 0 To 59 Label2.Caption = 不及格 Case 60 To 69及格 Case 70 To 79中 Case 80 To 89良 Case 90 To 100优 Case Else End Select（6-1）（6-6）单击某命令按钮输出3100之间的所有奇数、奇数之和。将奇数显示与带垂直滚动条的文本框中，奇数之和显示与另一文本框中。 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）

8、& vbCrLf sum = sum + i Next i Text2.Text = sum（6-10）（6-12）求1!+2!+3!+20!。Private Sub Form_Click（） Dim n#, sum# n = 1 Do While n = Form1.ScaleWidth Then Label1.Left = Label1.Left + 100（7-9）（9-9）设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏32度），最大值是摄氏100度（或华氏212度），如图所示。运行时，当移动滚动条时，摄氏及华氏文本框能正确显示相应的温度值 VScroll1.Min

9、 = 32 VScroll1.Max = 212Private Sub VScroll1_Change（） Text1.Text = VScroll1.Value Text2.Text = Int（5 / 9 * （VScroll1.Value - 32）Private Sub VScroll1_Scroll（）（8-1）（7-2）用InputBox函数输入10个数与数组A中，输入后将这10个数显示在文本框中，并统计正数的个数，正数的和，负数的个数，负数的和。用Print方法将结果打印在窗体上，设计界面、运行结果如图所示。 Label1.Visible = False Dim Number（1

10、 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 &个数数据统计） Number（I） & If Number（I） ZSCount = ZSCount + 1 ZSSum = ZSSum + Number（I） ElseIf Number（I） a（j） Then t = a（i）: a（i） = a（j）: a（j） = t Next j max

11、 = a（20） Text2.Text = max（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 F = F + i Fact1 = FEnd FunctionSub Fact2（n As Integer, F As Long） Dim m%, n%, p% Dim f1 As Long

12、, 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）（9-2）（8-2）将实习（9-1）改成用Sub过程求1+2+3+N，完成相同的功能。 Call Fact2（m, f1） Call Fact2（n, f2） Call Fact2（p, f3） Text4.Text = Format（f1 + f2） / f3, （9-3）（8-3）在窗体模块中自定义一个Sub过程，按给定的不同字符及行数在图片框中打印行数相同。运行时，单击图片框，用InputBox输入任一字符及行数，调用该过程打印图形。Option ExplicitPrivate Sub Picture1_Click（） Dim char As String * 1 Dim n As Integer char = InputBox（字符类型请输入字符 n = Val