Visual Basic程序设计实验指导书实验代码.doc

第一章三、编程题第2题.设计由用户在文本框Text1中输入圆的半径，在文本框Text2和文本框Text3中分别显示圆的周长和面积程序。Private Sub Command1_Click() 计算按钮Text3.Text = 3.14159 * Text1.Text 2Text2.Text = 2 * 3.14159 * Text1.TextEnd SubPrivate Sub Command2_Click() 清除按钮Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 文本框获得焦点End SubPrivate Sub Command3_Click() 结束按钮EndEnd SubPrivate Sub Form_Load() 也可以在属性窗口设置以下几个属性Label1.Caption = 请输入圆半径计算圆周长和面积Label2.Caption = 输入圆半径Label3.Caption = 圆的周长是End Sub第3题.在文本框中输入一个字符串，对字符串进行字体的放大或缩小Private Sub Command1_Click() 放大按钮Text1.FontSize = 30Command1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command2_Click() 缩小按钮Text1.FontSize = 6Command2.Enabled = FalseCommand3.Enabled = TrueCommand1.Enabled = TrueEnd SubPrivate Sub Command3_Click() 还原按钮Text1.FontSize = 9Command3.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueEnd Sub第5题.编一程序，单击“加边框”按钮，在标签框四周加上边框；单击“隐藏”按钮。使边框不可见；单击“移动”按钮，使边框从当前位置向右移动500Twip，向下移动600Twip。Private Sub Command1_Click() 加边框按钮Label1.Visible = TrueLabel1.BorderStyle = 1End SubPrivate Sub Command2_Click() 移动按钮Label1.Left = Label1.Left + 500Label1.Top = Label1.Top + 500Label1.Move Label1.Left+ 500, Label1.Top + 600 或者用Move方法进行移动也可。Label1.Visible = TrueEnd SubPrivate Sub Command3_Click() 隐藏按钮Label1.Visible = FalseEnd Sub第7题.在文本框中输入正方体的边长，计算正方体的体积，表面积和周长。Private Sub Text1_Change()Label5.Caption = Val(Text1.Text 3)Label6.Caption = 6 * Val(Text1.Text) 2Label7.Caption = 12 * Val(Text1.Text)End SubPrivate Sub Text1_LostFocus()Label5.Caption = Val(Text1.Text) 3Label6.Caption = 6 * Val(Text1.Text) 2Text2.Text = 12 * Val(Text1.Text)Label7.Caption = 12 * Val(Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenLabel5.Caption = Val(Text1.Text) 3Label6.Caption = 6 * Val(Text1.Text) 2Text2.Text = 12 * Val(Text1.Text)Label7.Caption = 12 * Val(Text1.Text)Text1.SetFocusEnd IfEnd Sub第二章在窗体上使用Print方法显示图2.5所示的界面。然后修改界面和代码，在图形框中用Print方法显示相同的内容。Private Sub Form_Click() Form1.FontItalic = True Form1.Print Italic-Visual Basic Form1.FontName = 楷体_gb2312 Form1.Print 楷体-程序设计语言 Form1.FontName = 隶书 Form1.Print 隶书-程序设计语言 Form1.FontName = 黑体 Form1.Print 旋转-程序设计语言End Sub在图形框中输出内容的事件过程代码为：Private Sub Form_Click() picture1.FontItalic = True picture1.Print Italic-Visual Basic picture1.FontName = 楷体_gb2312 picture1.Print 楷体-程序设计语言 picture1.FontName = 隶书 picture1.Print 隶书-程序设计语言 picture1.FontName = 隶书 picture1.Print 旋转-程序设计语言End Sub4编程序，在图形框中输出指定范围内（范围由文本框输入）的3个随机整数和这三个随机整数和的平方根，平方根保留四位小数。运行界面如图2.7所示。Private Sub Command1_Click()a= Val(Text1) m为下界b= Val(Text2) n为上界以下c,d,e为产生的随机数c = Int(Rnd() * (b - a + 1) + a) rnd()能随机产生01之间小数（不包括1）。d = Int(Rnd() * (b - a + 1) + a) int()函数是取整函数，返回参数的整数部分值e = Int(Rnd() * (b - a + 1) + a)s = Sqr(c + d + e) sqr()函数是开平方函数Picture1.Print c, d, e 结果在图形框picture1中打印，逗号作为打印分隔符。Picture1.Print 三个数和的平方根=; Format(s, #.#) 分号分隔符为紧凑输出,format()函数设定输出表达式s的格式。End Sub Private Sub Command2_Click()Text1 = Text2 = Picture1.Cls 清除图形框中的显示结果End Sub Private Sub Command3_Click() 结束EndEnd Sub 6在文本框中输入一字符串，对字符串进行放大或缩小，运行界面如图2.9所示。提示：(1)单击“放大”按钮，将文本框中的字符串放大24倍，放大倍数通过随机函数产生，倍数表达式为：Int(Rnd * 3 + 2)。(2)为了使每次运行时产生不同的放大倍数，程序运行时先执行Randomize语句。(3)同样，单击“缩小”按钮，将文本框中的字符串缩小13倍，缩小的倍数也通过上述方式产生。(4)单击“还原”按钮，字体大小恢复成初始状态（字体为9磅），此时，“放大”、“缩小”按钮变成可操作状态。(5)不能连续进行放大或缩小操作。执行放大后，“放大”按钮呈暗淡色（不可操作），“缩小”、“还原”按钮有效。同样执行了缩小操作后，“缩小”按钮不可操作，而“放大”、“还原”按钮有效。Private Sub Command1_Click() Randomize 初始化随机数生成器，使之产生不同规律随机数 n = Int(Rnd * 3 + 2) 产生放大倍数（24倍）存入n变量中 Text1.FontSize = Text1.FontSize * n Text1的字号在原来基础上增大n倍 Command1.Enabled = False 当前按钮呈灰色，不可用 Command2.Enabled = True Command3.Enabled = TrueEnd Sub Private Sub Command2_Click() Randomize 初始化随机数生成器，使之产生不同规律随机数 n = Int(Rnd * 3 + 1) 产生缩小的倍数（13倍）存入n变量中 Text1.FontSize = Text1.FontSize n 字号为整数，所以选用整除运算符“” Command1.Enabled = True Command2.Enabled = False Command3.Enabled = TrueEnd Sub Private Sub Command3_Click() Text1.FontSize = 9 还原字号为9磅 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = FalseEnd Sub 8利用Shell函数执行对应的应用程序，单击窗体上的“记事本”按钮图标，执行记事本应用程序；单击窗体上的“画图”按钮图标，执行画图应用程序；单击窗体上的“计算器”按钮图标，执行计算器应用程序。设计界面如图2.11所示。提示：(1)“记事本”、“画图”、“计算器” （NotePad.exe、Mspaint.exe、Calc.exe）是Windows的应用程序，可以通过“开始”菜单的“查找”命令，找到该文件。找到后可用快捷菜单的“属性”来显示该文件的路径和文件名，将其复制下来用于Shell函数中。(2)图标可以自行选择，也可以自已制作。“记事本”的图标可通过“开始”“程序”“附件” “画图”，单击鼠标右键，在快捷菜单的“属性”选择“更改图标”；通过按组合键“Alt+Print+Screen”复制到剪贴板；打开画图程序，粘贴剪贴板内容，截取所需的图标，以位图文件保存到磁盘；最后对命令按钮的Picture属性加入对应的图形文件。 有关shell（）函数的使用参考实验书P16.Private Sub Command1_Click()i = Shell(C:windowssystem32notepad.exe, 1) End SubPrivate Sub Command2_Click()i = Shell(C:windowssystem32mspaint.exe, 1)End Sub Private Sub Command3_Click()i = Shell(C:windowssystem32calc.exe, 1)End Sub第三章.单击“除法”命令按钮，计算两个数的除法（取两位小数）、整除和求余。单击“清除”按钮，清除所有文本框的内容，并使焦点回到Text1文本框。单击“结束”按钮，结束程序运行。Private Sub Command1_Click() Dim m%, n% m = Val(Text1.Text) n = Val(Text2.Text)if n0 then Text3.Text = Format(m / n, 0.00) 用Format函数设置了除法结果保留2位小数 Text4.Text = m n Text5.Text = m Mod n 注意mod运算符左、右必须至少有一空格else msgbox(除数n不能为0，请重新输入！)endifEnd Sub Private Sub Command2_Click() Text1.Text = Text2 = Text3 = Text4 = Text5 = End Sub Private Sub Command3_Click() EndEnd Sub 4. 用InputBox函数，从键盘上输入圆半径，求出圆面积、球表面积和球体积。计算圆面积、球表面积、球体积的公式分别为：r2、4r2、4/3r3。运行界面如图3.12所示。Private Sub Command1_Click()Const pi = 3.14159 定义常量pir = InputBox(输入圆半径, 输入框, , 100, 100)s1 = pi * r 2s2 = 4 * pi * r 2v = 4 / 3 * pi * r 3Picture1.Print r 在图形框输出Picture2.Print s1Picture3.Print s2Picture4.Print vEnd Sub 6. 编一个华氏温度与摄氏温度之间的转换程序。用InputBox函数输入一个温度（把输入的温度赋予一个窗体级变量）；当单击“转为华氏”按钮，则将摄氏温度转换成华氏温度；单击“转为摄氏”按钮，则将华氏温度转换成摄氏温度。转换公式为：F = 9 / 5 * C + 32 摄氏温度转换成华氏温度，F为华氏温度。C = 5 / 9 * (F - 32) 华氏温度转换成摄氏温度，C为摄氏温度。参考代码如下：Dim a As Single 定义窗体级模块变量a，作用域为整个窗体模块各个事件过程。Private Sub Form_Load() 在窗体装入时输入a值。a = InputBox(请输入温度 + Chr(13) + Chr(10) + 输入, 输入框, , 100, 100)End SubPrivate Sub Command1_Click() 单击Command1按钮为求摄氏温度 Text1.Text = 5 / 9 * (a - 32)End SubPrivate Sub Command2_Click() 单击Command2按钮为求华氏温度 Text2.Text = 9 / 5 * a + 32End Sub 8. 设计一个收款计算程序，用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮或按回车键显示应付款。Private Sub Command1_Click() Label5.Caption = Text1 * Text2 * (1 - Text3) 注意数据类型会自动转换为数值型End SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Label5.Caption = End Sub第四章用InputBox函数输入三角形三边a、b、c，判断是否能构成三角形，能构成三角形，求出三角形的面积。否则用MsgBox显示“不能构成三角形”的信息。计算公式如下：P =( a + b + c )/ 2 S = sqr(p*(p-a)*(p-b)*(p-c)要求：对输入的数据用IsNumeric函数对三条边进行测试，若输入非数字字符，显示“输入错误！重新输入”。只有三边都是数字字符才转换成数值，计算三角形的面积（保留三位小数）。界面设计如图4.7所示。Private Sub Command1_Click()Private Sub Command1_Click()a = InputBox(a)Do While Not IsNumeric(a) MsgBox (输入错误，重新输入) a = InputBox(a)LoopText1 = aa = Val(a)b = InputBox(b) Do While Not IsNumeric(b) MsgBox (输入错误，重新输入) b = InputBox(b)LoopText2 = bb = Val(b)c = InputBox(c) Do While Not IsNumeric(c) MsgBox (输入错误，重新输入) c = InputBox(c)LoopText3 = cc = Val(c) If a + b c And Abs(a - b) c Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) Label5.Caption = Format(s, 0.000)ElseMsgBox 不能构成三角形, 20 Command2.Value = TrueEnd IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Label5.Caption = End Sub 2. 编一模拟袖珍计算器的完整程序，运行界面如图4.8所示。要求：（1）输入两个操作数和一个算术运算符，根据算术运算符决定所做的运算。（2）为了保证程序的正常运行，对输入的运算数和运算符需进行检验，如在规定范围以外（输入操作数非法、运算符非法或除数为零），利用MsgBox函数或过程显示出错误信息。（3）若输入错误，清除错的输入内容，利用SetFocus方法使焦点定位后再输入。（4）当窗体上有多个具有焦点属性的控件时，为了确定程序运行时，使每一次按Tab键时焦点按操作数、运算符、命令按钮的次序定位，可以对每个控件的TabIndex属性设置。（5）对多个文本框的输入数据用（LostFocus）进行测试，应防止出现争夺焦点。可以在测试过程中使用如下判断语句。 If Not IsNumeric(Text2) And Text2 Then 参考代码如下：Dim a, bPrivate Sub Command2_Click()Text1 = : Text2 = Text3 = : Text4 = End SubPrivate Sub Text1_lostfocus() If Not IsNumeric(Text1) Then MsgBox 操作数非法，重新输入！, 16 Text1 = Text1.SetFocus Else a = Val(Text1) End IfEnd SubPrivate Sub Text2_lostfocus() If Not IsNumeric(Text2) And Text2 Then MsgBox 操作数非法，重新输入！, 16 Text2 = Text2.SetFocus Else b = Val(Text2) End IfEnd SubPrivate Sub Command1_Click() p = Text3 Select Case p Case + Text4 = a + b Case - Text4 = a - b Case * Text4 = a * b Case / If b = 0 Then MsgBox 零为非法数，重新输入！, 16 Text2 = Text2.SetFocus Else b = Val(Text2) Text4 = a / b End If Case Else MsgBox 运算符有错，重新输入！, 16, 出错信息 Text3 = Text3.SetFocus End SelectEnd Sub 6. 编制程序，用InputBox函数输入学生三门功课的成绩M1、M2、M3，计算某个学生奖学金的等级。奖学金评定标准如下：一等奖：符合下列条件之一的可得一等奖。（1）平均分大于95分者。（2）有两门成绩是100分，且第三门功课成绩不低于80分者。二等奖：符合下列条件之一的可得二等奖。（1）平均分大于90分者。（2）有一门成绩是100分，且其他功课成绩不低于75分者。三等奖：各门功课成绩不低于70分者。符合条件者就高不就低，只能获得高的那一项奖学金，在窗体上显示获奖的等级。第一种方案：在窗体上画一图形框picture1，不排序直接判断Private Sub Picture1_Click()m1 = Val(InputBox(请输入第一门功课成绩, 输入框, , 100, 100)m2 = Val(InputBox(请输入第二门功课成绩, 输入框, , 100, 100)m3 = Val(InputBox(请输入第三门功课成绩, 输入框, , 100, 100)If (m1 + m2 + m3) / 3 95 Or (m1 = 100 And m2 = 100 And m3 = 80) Or (m1 = 100 And m3 = 100 And m2 = 80) Or (m2 = 100 And m3 = 100 And m1 = 80) ThenPicture1.Print 获得一等奖学金ElseIf (m1 + m2 + m3) / 3 90 Or (m1 = 100 And m2 = 75 And m3 = 75) Or (m2 = 100 And m1 = 75 And m3 = 75) Or (m3 = 100 And m1 = 75 And m2 75) Then Picture1.Print 获得二等奖学金 ElseIf m1 = 70 And m2 = 70 And m3 = 70 Then Picture1.Print 获得三等奖学金 Else Picture1.Print 什么都没有End IfEnd Sub第二种改进方案：在窗体上画一图形框输出结果，用一个命令按钮触发，先排序Private Sub Command1_Click() m1 = Val(InputBox(请输入第一门功课成绩) m2 = Val(InputBox(请输入第二门功课成绩) m3 = Val(InputBox(请输入第三门功课成绩) Picture1.Print 三门课的成绩：, m1, m2, m3 If m1 m2 Then t = m1: m1 = m2: m2 = t 先对m1,m2,m3从大到小排序 If m2 m3 Then t = m2: m2 = m3: m3 = t If m1 = 95 Or (m1 = 100 And m2 = 100 And m3 = 80) Then Picture1.Print 获得一等奖学金 ElseIf (m1 + m2 + m3) / 3 = 90 Or (m1 = 100 And m3 = 75) Then Picture1.Print 获得二等奖学金 ElseIf m3 = 70 Then Picture1.Print 获得三等奖学金 Else Picture1.Print 暂未获奖学金，继续努力！ End IfEnd Sub 8用InputBox函数从键盘上任意输入3个实数X，Y，Z，在文本框中分两行显示这些数和其中间数（即其值大小居中者）。提示：在文本框中分行输出，首先将文本框的多行属性设置为True,然后用下列方法实现：text1.text=X & “ “ & Y & “ “ & Z & vbCrLf & 中间数。要求：用InNumeric函数对输入进行测试。若输入数据含有非数字字符，显示“不是数字字符，程序结束”。当输入是数字字符时，将其转换成数值，最后找出中间数。 方案一：画一命令按钮Command1触发事件，在窗体上打印，不作数字合法性检查。Private Sub Command1_Click()Dim a, b, c, mid1a = Val(InputBox(a=)b = Val(InputBox(b=)c = Val(InputBox(c=)If a = b And b = c Or a = b And b b And a = c Or a c Then mid1 = aElseIf c b And c a Or c a Then mid1 = cEnd IfPrint a, b, cPrint 中间数是：; mid1End Sub第二种改进方案：画一文本框输出结果，对输入数字进行合法性检验，用命令按钮command1触发，先对x,y,z排序，找中间数yDim x, y, z Private Sub Command1_Click()x = InputBox(请输入x的值)If Not IsNumeric(x) Then i = MsgBox(不是数字字符，程序结束, 53)end Else x = Val(x)End Ify = InputBox(请输入y的值)If Not IsNumeric(y) Theni = MsgBox(不是数字字符，程序结束, 53)end 输入非法，用end结束程序 Else y = Val(y)End Ifz = InputBox(请输入z的值)If Not IsNumeric(z) Theni = MsgBox(不是数字字符，程序结束, 53)end Else z = Val(z)End IfText1 = x & & y & & z & vbCrLf以下三行对 x,y,z先排序，找中间那个数If x y Then t = x: x = y: y = tIf y z Then t = y: y = z: z = tIf x y Then t = x: x = y: y = tText1 = Text1 & 中间的数是： & yEnd Sub第五章有一数列，它的头三项为0，0，1，以后的每个数都是其前三个数的和。编程在窗体上每行输出5个数，输出此数列，直到最后一个数超过1010为止。提示：设置三个变量表示数列中相邻的三项，输出每个新项后，用赋值的方法重新对三个变量赋值。每行输出5个数可以设置一个计输出项数的计数器，判断当每行输出5个数后换行输出。 Private Sub Form_Click()x = 0y = 0z = 1i = 3 用i变量计数，用于后面每输出5个换行Picture1.Print x, y, z,Do While m 1010m = x + y + z 每循环一次得到一个新数mx = yy = zz = m 以上三条赋值语句重新对x,y,z赋值，为后续求下一个新数m做准备。Picture1.Print m,i = i + 1 If Int(i / 5) = i / 5 Then 如果个数i是5的倍数则换行Picture1.PrintEnd IfLoopEnd Sub3用For循环和Do循环在文本框中每行输出一个1010000之间被3除余2、被5除余3、被7除余2的数，在图形框中输出其和及个数。提示：画出界面后，要设置text1的，MULTILINE为TRUE,SCROLLBARS属性为2或3.Private Sub Command1_Click() Dim i%, sum&, count% count = 0 sum = 0 For i = 10 To 10000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Text1 = Text1 & i & vbCrLf 一个数放一行，vbCrLf为换行符 count = count + 1 count计数变量+1 sum = sum + i 符合条件的i累加到sum中 End If Next i Picture1.Print count=; count Picture1.Print sum=; sumEnd Sub若要求文本框每行输出5个数，如何修改程序？Private Sub Command1_Click()Dim i%, sum&, count%count = 0sum = 0For i = 10 To 10000If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 ThenText1 = Text1 & i & 用空格分隔各个数count = count + 1 count计数变量+1sum = sum + i 符合条件的i累加到sum中if int(count/5)=count/5 then text1=text1 & vbcrlf 如果是5的倍数则换行End IfNext iPicture1.Print count=; countPicture1.Print sum=; sumEnd Sub4编程计算由下列公式确定的S值，其中n是用户输入的正整数，n可由InputBox函数或文本框输入。注意选用合适的变量类型，界面用户自行设计。（1）S=1*1+2*2+3*3+n*n（2）S=2/1 + 3/2 + 5/3 + 8/5 + 13/8 + 21/13 + （3）S=1+（12）+（123）+ +（123n）（4）S=4(1 - 1/3 + 1/5 - 1/7 + 1/9 - (-1) (1/(2n - 1)（5）S=1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100 + + 1/n（1）Private Sub Command1_Click()Dim S&, N%, K% S = 0 N = InputBox(输入一个正整数作为多项式的项数) For K = 1 To N S = S + K*K Next K Print S=1*1+2*2+n*2!; SEnd Sub （2）Private Sub Command1_Click() Dim S#, N%, K%, M%, L% S = 0 M = 2 L = 1 N = InputBox(输入多项式的项数) For K = 1 To N S = S + M / L t = M M = M + L L = t Next K Print S=2/1+3/2+5/3+8/5+13/8+21/13+; SEnd Sub（3）Private Sub Command1_Click() Dim S&, N%, K%, M%, L% S = 0 N = InputBox(输入一个正整数作为多项式的项数) M = 1 For K = 1 To N M = M * K S = S + M Next K Print S=1+(12)+(123)+(123N); SEnd Sub或者用二重循环实现，代码如下Private Sub Form_Click() Dim S&, N%, K%, M%, L% S = 0 N = InputBox(输入一个正整数作为多项式的项数) For K = 1 To N M = 1 For L = 1 To K M = M * L Next L S = S + M Next K Print S=1+(12)+(123)+(123N); SEnd Sub（4）Private Sub Form_Click() Dim S!, N% S = 0 N = InputBox(Inpunt N:) For i = 1 To N S = S + (-1) (i - 1) / (2 * i - 1) Next i Form4.Print S=1-1/2+1/3-1/4+1/99-1/100+(-1)n-1(1/n); 4 * SEnd Sub(5) Private Sub Form_Click() Dim S!, N% S = 0 For N = 1 To 100 S = S + (-1) (N + 1) / N 或 (-1) (1+n) / nNext N Form5.Print S=1-1/2+1/3-1/4+1/99-1/100+(-1)n-1(1/n); SEnd Sub 9. 求31000中所有素数（质数），素数除了1和该数本身能整除该数外，其它的数不能整除该数。Private Sub Command1_Click()For i = 3 To 1000 For j = 2 To i - 1 If i Mod j = 0 Then Exit For End If Next j If i = j Then Text1.Text = Text1.Text & i & vbCrLf End If Next i End Sub可以再改进一下:1）j取值可以更少些 ，到sqr(i)或i/22）可以做一个标识TAG,如果不是素数赋值falsePrivate Sub Command1_Click() Dim i As Integer, j As Integer, Tag As Boolean For i = 3 To 1000 Tag = True For j = 2 To i - 1 sqr(i)或i/2 If i Mod j = 0 Then Tag = False Next j If Tag Then Text1 = Text1 & i & vbCrLf Next iEnd Sub第六章三、编程题1用随机数函数产生100个20100之间的随机数整数，赋予A数组。以每行输出10个元素的紧凑格式在图形框中输出该数组，并在标签框中输出数组元素中的最大值、最小值和它们的平均值。方案一：Option base 1Private Sub Picture1_Click()Dim a(100) As IntegerRandomizes = 0big = 20: small = 100 数据范围在20100之间，假设的初始值要越假越好For i = 1 To 100a(i) = Int(100 - 20 + 1) * Rnd + 20)If big a(i) Then small = a(i)s = s + a(i)Picture1.Print a(i);If i / 10 = i 10 Then Picture1.PrintNext iLabel1.Caption = big & & sm