VB程序设计实验要求及报告.doc
上海立信会计学院本科实验报告实验2 顺序结构一、 实验目的1 掌握正确书写表达式、复制语句的规则。2 掌握常用函数的使用。3 掌握InputBox 与 MsgBox的使用。4 掌握Print方法和Format格式的使用二、实验要求1 在C:下建立子文件夹“VB实验2”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(21.vbp)、窗体文件(21.frm) 及可执行文件（21.exe），本实验中的第二题，需保存的文件有：工程文件(22.vbp)、窗体文件(22.frm) 及可执行文件（22.exe），其余实验依此类推。2 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。三、 实验内容：1. 按图2-1（a）所示设计窗体界面，窗体内有3个标签、2个按钮、1个文本框，输入、输出项控件的初值均为空，所有控件的字体、大小均为默认值。要求：输入半径，计算圆面积和圆周长，为保证程序运行的正确，对输入的半径值进行合法性检查（不能含有非数字字符、不能为负数，通过按Tab键进行检查），数据检查调用IsNumeric函数等；若有错，利用MsgBox显示出错信息，如图2-1（b）所示，然后光标定位于文本框处，重新输入；若正确，通过计算按钮计算相应结果。计算结果保留2位小数，第一、第二位小数是零也要显示，圆周率取3.14。 图2-1（a） 图2-1（b）Private Sub Command1_Click() a = 3.14 * Val(Text1.Text) 2 Label2.Caption = Format(a, "0.00")End SubPrivate Sub Command2_Click() b = 2 * 3.14 * Val(Text1.Text) Label3.Caption = Format(b, "0.00")End SubPrivate Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Or Text1.Text < 0 Then MsgBox "输入错误，请重新输入！", , "警告" Text1.Text = "" Text1.SetFocus End IfEnd Sub2. 设计一个窗体界面，所有控件字体不变，大小改为三号，文本框含有滚动条。要求：输入一字符串，调用Ucase、Len函数，当先后点击“转换成大写字母”和“显示长度”按钮，分别将其转换成大写字母和显示其字符串长度（均在文本框内显示），如图2-2（a）、（b）、（c）所示。图2-2（a）图2-2（b）图2-2（c）Private Sub Command1_Click() Text1.Text = UCase(Text1.Text)End SubPrivate Sub Command2_Click() Text1.Text = Len(Text1.Text)End Sub3. 随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数在点击窗体时同时显示。显示随机数的字体为宋体、大小为小三。效果如图2-3所示。图2-3Private Sub Form_Click() Show Randomize a = Int(Rnd * 900 + 100) b = Mid(a, 3) + Mid(a, 2, 1) + Mid(a, 1, 1) Print a, bEnd Sub4. 使用Mid、Left、Right函数，在文框中输入一字符串，文本框设置为隶属字体、三号大小，要求在窗体装入时立即在Label1、Label2 和Label3标签显示如图2-4所示的效果，同时将字体和大小也复制过去。图2-4Private Sub Form_Load() Label1.Caption = Left(Text1.Text, 11) Label1.FontSize = Text1.FontSize Label1.FontName = Text1.FontName Label2.Caption = Mid(Text1.Text, 12, 6) Label2.FontName = Text1.FontName Label2.FontSize = Text1.FontSize Label3.Caption = Right(Text1.Text, 5) Label3.FontSize = Text1.FontSize Label3.FontName = Text1.FontNameEnd Sub5. 要求单击窗体后实现如下功能，用InputBox函数输入一个正实数，用Print方法在窗体上用一行显示出它的平方、平方根、立方和立方根，每个数最多保留三位小数，小数末尾是零则不显示，其间有间隔。如图2-5（a）、（b）所示，窗体中字体大小为小四。（a）（b）图2-5Private Sub Form_Click() Show x = Val(InputBox("请输入一个正实数", "计算") Print Format(x 2, "#.#") & " " & Format(Sqr(x), "#.#") & " " & Format(x 3, "#.#") & " " & Format(x (1 / 3), "#.#")End Sub四、 实验过程中的问题、错误，解决方法，总结、体会、建议。
