大学VB实验2答案.docx

《大学VB实验2答案.docx》由会员分享，可在线阅读，更多相关《大学VB实验2答案.docx（4页珍藏版）》请在三一办公上搜索。

1、大学VB实验2答案上海立信会计学院本科实验报告 实验2 顺序结构 一、 实验目的 1 掌握正确书写表达式、复制语句的规则。 2 掌握常用函数的使用。 3 掌握InputBox 与 MsgBox的使用。 4 掌握Print方法和Format格式的使用 二、实验要求 1 在C:下建立子文件夹“VB实验2”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件(21.vbp)、窗体文件(21.frm) 及可执行文件，本实验中的第二题，需保存的文件有：工程文件(22.vbp)、窗体文件(22.frm) 及可执行文件，其余实验依此类推。 2 撰写实验过程中出现了哪

2、些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 按图2-1所示设计窗体界面，窗体内有3个标签、2个按钮、1个文本框，输入、输出项控件的初值均为空，所有控件的字体、大小均为默认值。要求：输入半径，计算圆面积和圆周长，为保证程序运行的正确，对输入的半径值进行合法性检查，数据检查调用IsNumeric函数等；若有错，利用MsgBox显示出错信息，如图2-1所示，然后光标定位于文本框处，重新输入；若正确，通过计算按钮计算相应结果。计算结果保留2位小数，第一、第二位小数是零也要显示，圆周率取3.14。 图2-1 图2-1 Private Sub Command1_Click a =

3、3.14 * Val(Text1.Text) 2 Label2.Caption = Format(a, 0.00) End Sub Private Sub Command2_Click b = 2 * 3.14 * Val(Text1.Text) Label3.Caption = Format(b, 0.00) End Sub Private Sub Text1_LostFocus If Not IsNumeric(Text1.Text) Or val(Text1.Text) 0 Then MsgBox 输入错误，请重新输入！, , 警告 Text1.Text = Text1.SetFocus

4、 End If End Sub 2. 设计一个窗体界面，所有控件字体不变，大小改为三号，文本框含有滚动条。要求：输入一字符串，调用Ucase、Len函数，当先后点击“转换成大写字母”和“显示长度”按钮，分别将其转换成大写字母和显示其字符串长度，如图2-2、所示。 图2-2 图2-2 图2-2 Private Sub Command1_Click Text1.Text = UCase(Text1.Text) End Sub Private Sub Command2_Click Text1.Text = Len(Text1.Text) End Sub 3. 随机产生一个3位正整数，然后逆序输出，产

5、生的随机数与逆序数在点击窗体时同时显示。显示随机数的字体为宋体、大小为小三。效果如图2-3所示。 图2-3 Private Sub Form_Click Show Randomize a = Int(Rnd * 900 + 100) b = Mid(a, 3) + Mid(a, 2, 1) + Mid(a, 1, 1) Print a Print ; b End Sub 4. 使用Mid、Left、Right函数，在文框中输入一字符串，文本框设置为隶属字体、三号大小，要求在窗体装入时立即在Label1、Label2 和Label3标签显示如图2-4所示的效果，同时将字体和大小也复制过去。 图2

6、-4 Private 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.Fon

7、tSize Label3.FontName = Text1.FontName End Sub 5. 要求单击窗体后实现如下功能，用InputBox函数输入一个正实数，用Print方法在窗体上用一行显示出它的平方、平方根、立方和立方根，每个数最多保留三位小数，小数末尾是零则不显示，其间有间隔。如图2-5、所示，窗体中字体大小为小四。 图2-5 Private Sub Form_Click Show x = Val(InputBox(请输入一个正实数, 计算) Print Format(x 2, #.#) & & Format(Sqr(x), #.#) & & Format(x 3, #.#) & & Format(x (1 / 3), #.#) End Sub 四、 实验过程中的问题、错误，解决方法，总结、体会、建议。