VB实验辅导材料.doc

VB实验辅导材料 实验一 程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。 启动VB，建立如图VB界面（一个窗体、一个文本框、三个命令按扭） 设置属性，调整控件大小： Form1.caption=”VB,你好！” Command1.caption=”显示内容” Command2. caption=”清屏” Command3. caption=”结束” Text1.text=”” 编写对象_事件过程 Sub command1_click() Text1.text=“Hello,Visual Basic！” Text1.forecolor=vbred End sub ------------------ Sub command2_click() Text1.text=”” End sub ------------------ Sub command3_click() end End sub 实验二 二、编写程序，界面如图2-1所示。使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签1上，再求出该数的正弦值，将结果写在标签2上。 提示：使用Rnd函数产生随机数，注意，为了防止两次运行程序的随机数序列相同，调用Rnd之前先用Randomize语句进行初始化。产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。求正弦值函数为：sin()。 实验步骤： 启动VB，建立如图VB界面（1个窗体、4个标签、1个命令按扭） 2、设置属性，调整控件大小和位置： Form1.caption=”随机数的正弦值” Command1.caption=”下一个随机数” Label1.caption=”” Label2.caption=”” Label3.caption=”随机数（60~90）” Label4.caption=”正弦值” 3、算法： 产生一个随机数的种子：n=randomize() 产生一个[60,90]之间的随机数：x=60+（90-60+1）*rnd(n) 该数的正弦值: y=sin(x) 编写对象_事件过程 Private Sub Command1_Click() Randomize x = 60 + (90 - 60 + 1) * Rnd() y = Sin(x) Label1.caption= x Label2.caption= y End Sub 实验三　数据的输入输出及顺序结构程序设计 二、实验内容 1．编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。 Private form_click() Dim xm$,age%,txdz$,yzbm$,tell$ Xm=inputbox(“姓名”) Age=val(inputbox(“年龄”)) Txdz=inputbox(“通信地址”) Yzbm=inputbox(“邮政编码”) tell=inputbox(“电话”) print “姓名”,xm print “年龄”,age print “通信地址”,txdz print “邮政编码”,yzbm print “电话”,tell end sub 2．编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图3-1所示，其中F与C之间的关系为：。 Sub command1_click() Dim f!,c! F=val(text1) C=(f-32)*5/9 Text2=c End sub ------------ Sub command2_click() Dim f!,c! c=val(text1) f=9*c/5+32 Text1=f End sub 3．编写计算圆面积和球体积的程序，程序运行界面如图3-2所示。要求输出结果只保留四位小数；如果半径的输入不合法，例如含有非数值字符，应该用MsgBox报告输入错误，并在错误信息得到用户确认（点击MsgBox对话框上的“确定”按钮）之后，将输入焦点转移到输入半径的文本框中，且将当前的非法输入自动选定，反白显示。 提示：判断输入值是否为数值类型可用函数IsNumeric（）；当字符串类型向数值类型转换时用函数Val（）；而当数值类型向字符串类型转换时，可以用Str（）函数或格式化函数Format（）。 Sub command1_click() Dim r!, s#,V# Cons pi#=3.1415926 If isnumeric(text1) then R=val(text1) S=pi*R^2 V=4*