大学VB实验2答案.docVIP

上海立信会计学院本科实验报告 实验2 顺序结构 实验目的 掌握正确书写表达式、复制语句的规则。 掌握常用函数的使用。 掌握InputBox 与 MsgBox的使用。 掌握Print方法和Format格式的使用 二、实验要求 在C:\下建立子文件夹“VB实验2”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件 21.vbp 、窗体文件 21.frm 及可执行文件（21.exe），本实验中的第二题，需保存的文件有：工程文件 22.vbp 、窗体文件 22.frm 及可执行文件（22.exe），其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 实验内容： 按图2-1（a）所示设计窗体界面，窗体内有3个标签、2个按钮、1个文本框，输入、输出项控件的初值均为空，所有控件的字体、大小均为默认值。要求：输入半径，计算圆面积和圆周长，为保证程序运行的正确，对输入的半径值进行合法性检查（不能含有非数字字符、不能为负数，通过按Tab键进行检查 即用lostfocus来检查），数据检查调用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 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 End If End Sub 设计一个窗体界面，所有控件字体不变，大小改为三号，文本框含有滚动条。要求：输入一字符串，调用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 Sub Private Sub Command2_Click Text1.Text Len Text1.Text End Sub 随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数在点击窗体时同时显示。显示随机数的字体为宋体、大小为小三。效果如图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 使用Mid、Left、Right函数，在文框中输入一字符串，文本框设置为隶属字体、三号大小，要求在窗体装入时立即在Label1、Label2 和Label3标签显示如图2-4所示的效果，同时将字体和大小也复制过去。 图2-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.