VB实验指导例题要点
- 格式：doc
- 大小：634.50 KB
- 文档页数：41
实验A VB环境和可视化编程基础1．（1）运行界面（2）参考代码：Private Sub Command1_Click()label3.Caption = text1.TextEnd Sub2．模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。
（1）运行界面（2）参考代码：Private Sub Command1_Click()Timer1.Interval = 0Call mymoveEnd SubSub mymove()Label1.Move Label1.Left - 20If Label1.Left = 0 Then Label1.Left = Form1.WidthEnd SubPrivate Sub Command2_Click()Timer1.Interval = 200End SubPrivate Sub Timer1_Timer()Call mymoveEnd Sub3．编写一程序，在文本框中统计在该窗口上鼠标单击的次数。
（1）运行界面：（2）编写代码：Private Sub Form_Click()Text1 = Val(Text1) + 1End SubPrivate Sub Form_Load()Text1.Text = ""End Sub4．代码：Private Sub Form_Click()Form1.Caption = "鼠标单击"Form1.Picture = LoadPicture("d:\1.jpg")End SubPrivate Sub Form_DblClick()Form1.Caption = "鼠标双击"Form1.Picture = LoadPicture("d:\2.jpg")End SubPrivate Sub Form_Load()Form1.Picture = LoadPicture("d:\3.jpg")End Sub5．命令按钮、字号、内容和格式的复制练习（1）运行界面（2）参考代码：Private Sub Command1_Click()Text1.FontName = "黑体"Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeText1.SetFocusEnd Sub实验B 顺序结构1．编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。
既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。
代码：Private Sub Command1_Click()Dim f!, c!f = Val(Text1.Text)c = 5 / 9 * (f - 32)Text2.Text = Format(c, "0.00")End SubPrivate Sub Command2_Click()Dim f!, c!c = Val(Text2.Text)f = 9 / 5 * c + 32Text1.Text = Format(f, "0.00")End Sub2．（1）运行界面（2）参考代码Private Sub Command1_Click()r = Text1.TextLabel1.Caption = Format(3.14 * r * r, ".00")Text1.SetFocusEnd SubPrivate Sub Command2_Click()r = Val(Text1.Text)Label2.Caption = Format(3.14 * 2 * r, ".00")Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenIf Not IsNumeric(Text1) ThenMsgBox "输入有误,请重输入"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) ThenMsgBox "输入有非数字字符,请重新输入", , "2-2" Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End IfEnd Sub3．我国有13亿人口，按人口增长0.8%计算，多少年后我国人口超过26亿。
（1）运行界面（2）参考代码Private Sub Command1_Click()a = Int(Log(2) / (Log(1 + 0.008))) + 1Text1.Text = a & "年后,我国人口超过26亿"End Sub4．输入一字符串，分别调用Ucase、Len函数将其转换成大写字母并显示其字符串长度（1）运行界面（2）参考代码Private Sub Command1_Click()Text2.Text = UCase(Text1.Text)Text3.Text = Len(Text1.Text)End Sub5．随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。
例如，产生735，输出是537（1）运行界面（2）参考代码：Private Sub Command1_Click()x = Int((899 + 1) * Rnd + 100)a = x \ 100b = (x Mod 100) \ 10c = x Mod 10Text1.Text = xText2.Text = c * 100 + b * 10 + aEnd Sub6．使用Mid、Left、Right函数。
在Text1文本框中输入一字符串，在label1、Label2、Label3中显示如图的效果。
（1）运行界面（2）参考代码：Private Sub Form_Click()Text1.FontSize = 16Label1.FontSize = 16Label2.FontSize = 16Label3.FontSize = 16Text1.Text = "VisualBasic程序设计教程(第三版)"Label1.Caption = Left(Text1.Text, 11)Label2.Caption = Mid(Text1.Text, 12, 6)Label3.Caption = Right(Text1.Text, 5)End Sub7．Print方法练习，显示字符图形。
（1）运行界面（2）参考代码：（a）Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(13 - 2 * i); String(2 * i - 1, "★"); Spc(22 - 4 * i); String(2 * i - 1, "★")Next iEnd SubPrivate Sub Command2_Click()Form1.ClsEnd Sub（b）Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(13 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★") Next iEnd SubPrivate Sub Command2_Click()Form1.ClsEnd Sub8．用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。
(1)运行界面(2)参考代码：Private Sub Command1_Click()x = Val(InputBox("输入一个正实数"))Form1.Print Format(x * x, ".000"); Spc(5); Format(Sqr(x), ".000"); Spc(5); Format(x * x * x, ".000"); Spc(5); Format(x ^ (1 / 3), ".000")End Sub实验C 选择结构一、实验目的1 掌握逻辑表达式的正确书写形式2 掌握单分支与双分支条件语句的使用。
3 掌握多分支条件语句的使用。
4 掌握情况语句的使用及其与多分支条件语句之间的区别。
二、实验内容1、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应所扣支付：提示：此题用多分支结构实现，注意计算公式和条件表达式的正确书写。
实验目的：掌握多边if语句的正确使用实验步骤：1 新建新工程2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y代码如下：Private Sub Form_Click()Dim x As Single, y As Singlex = Val(InputBox("请输入物品价钱："))If x < 1000 Theny = xElseIf x >= 1000 And x < 2000 Theny = 0.9 * xElseIf x >= 2000 And x < 3000 Theny = 0.8 * xElseIf x >= 3000 Theny = 0.7 * xEnd IfPrint "所付钱为："; yEnd Sub2、编一程序输入上网的时间并计算上网费用，计算的方法如下：同时为了鼓励多上网，每月收费最多不超过150元。
