VB实验指导例题

Text1.SelLength = Len(Text1.Text) End If End Sub 3． 我国有 13 亿人口，按人口增长 0.8%计算，多少年后我国人口超过 26 亿。 （1）运行界面
（2）参考代码 Private Sub Command1_Click() a = Int(Log(2) / (Log(1 + 0.008))) + 1 Text1.Text = a & "年后,我国人口超过 26 亿" End Sub 4． 输入一字符串，分别调用 Ucase、Len 函数将其转换成大写字母并显示其字符串长度 （1） 运行界面
（2） 参考代码 Private Sub Command1_Click()
Text2.Text = UCase(Text1.Text) Text3.Text = Len(Text1.Text) End Sub 5． 随机产生一个 3 位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如，产 生 735，输出是 537 （1）运行界面
（2）参考代码： （a） Private Sub Command1_Click() Print For i = 1 To 5 Print Tab(13 - 2 * i); String(2 * i - 1, "★"); Spc(22 - 4 * i); String(2 * i - 1, "★") Next i End Sub Private Sub Command2_Click() Form1.Cls End Sub （b） Private Sub Command1_Click() Print For i = 1 To 5 Print Tab(13 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★") Next i End Sub Private Sub Command2_Click()
（2）参考代码：
Private Sub Form_Click() Text1.FontSize = 16 Label1.FontSize = 16 Label2.FontSize = 16 Label3.FontSize = 16 Text1.Text = "VisualBasic 程序设计教程(第三版)" Label1.Caption = Left(Text1.Text, 11) Label2.Caption = Mid(Text1.Text, 12, 6) Label3.Caption = Right(Text1.Text, 5) En源自文库 Sub 7． Print 方法练习，显示字符图形。 （1） 运行界面
同时为了鼓励多上网，每月收费最多不超过 150 元。 提示：首先利用多分支条件更具三个时间段算出费用，然后再用 if 语句对超过 150 元的费 用设置为 150 元。 略：提示和第一题类似 3、输入 x,y,z 三个数，按从大到小的次序显示。
实验目的：掌握单边或嵌套 if 语句的使用 实验步骤： 1 新建工程 2 代码如下： Private Sub Form_click() Dim x As Integer, b As Integer, z As Integer, d As Integer dim x!,y!,z! x = InputBox("请输入第一个数") y = InputBox("请输入第二个数") z = InputBox("请输入第三个数") Print "排序前"; x; Spc(5); y; Spc(5); z If x < y Then d = x: x = y: y = d End If If y < z Then d = y: y = z: z = d End If If x < y Then d = x: x = y: y = d End If Print "排序后"; x; Spc(5); y; Spc(5); z End Sub 4、利用实验 c 的思想，随机产生 3 个整数，按从小到大的顺序显示。 Private Sub Form_click() Dim x As Integer, y As Integer, z As Integer, d As Integer Randomize x = Int(Rnd * 101): y = Int(Rnd * 101): z = Int(Rnd * 101) Print "排序前"; x; Spc(5); y; Spc(5); z If x > y Then d = x: x = y: y = d End If If y > z Then d = y: y = z: z = d End If If x > y Then d = x: x = y: y = d End If Print "排序后"; x; Spc(5); y; Spc(5); z End Sub 5、利用计算机解决古代数学问题“鸡兔同笼问题” 。即已知在同一笼子里有总数为 m 只鸡 和兔，鸡和兔的总脚数为 n 只，求鸡和兔各有多少只？
实验 C 选择结构 一、实验目的
1 掌握逻辑表达式的正确书写形式 2 掌握单分支与双分支条件语句的使用。 3 掌握多分支条件语句的使用。 4 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验内容 1、在购买某物品时，若所标明的价钱 x 在下述范围内，所付钱 y 按对应所扣支付：
提示： 此题用多分支结构实现，注意计算公式和条件表达式的正确书写。 实验目的：掌握多边 if 语句的正确使用 实验步骤： 1 新建新工程 2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱 y 代码如下： Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox("请输入物品价钱：")) If x < 1000 Then y=x ElseIf x >= 1000 And x < 2000 Then y = 0.9 * x ElseIf x >= 2000 And x < 3000 Then y = 0.8 * x ElseIf x >= 3000 Then y = 0.7 * x End If Print "所付钱为："; y End Sub 2、编一程序输入上网的时间并计算上网费用，计算的方法如下：
（2）编写代码： Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1.Text = "" End Sub 4．代码： Private Sub Form_Click() Form1.Caption = "鼠标单击" Form1.Picture = LoadPicture("d:\1.jpg") End Sub Private Sub Form_DblClick() Form1.Caption = "鼠标双击" Form1.Picture = LoadPicture("d:\2.jpg") End Sub Private Sub Form_Load() Form1.Picture = LoadPicture("d:\3.jpg") End Sub
（2）参考代码： Private Sub Command1_Click() x = Int((899 + 1) * Rnd + 100) a = x \ 100 b = (x Mod 100) \ 10 c = x Mod 10 Text1.Text = x Text2.Text = c * 100 + b * 10 + a End Sub 6． 使用 Mid、Left、 Right 函数。在 Text1 文本框中输入一字符串，在 label1、Label2、Label3 中显示如图的效果。 （1） 运行界面
5．命令按钮、字号、内容和格式的复制练习 （1）运行界面
（2）参考代码： Private Sub Command1_Click() Text1.FontName = "黑体" Text1.FontSize = 25 End Sub Private Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize Text1.SetFocus End Sub
（2）参考代码： Private Sub Command1_Click() Timer1.Interval = 0 Call mymove End Sub Sub mymove() Label1.Move Label1.Left - 20
If Label1.Left = 0 Then Label1.Left = Form1.Width End Sub Private Sub Command2_Click() Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Call mymove End Sub 3．编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 （1）运行界面：
Form1.Cls End Sub 8． 用 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
（2）参考代码 Private Sub Command1_Click() r = Text1.Text Label1.Caption = Format(3.14 * r * r, ".00") Text1.SetFocus End Sub Private Sub Command2_Click() r = Val(Text1.Text) Label2.Caption = Format(3.14 * 2 * r, ".00") Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1) Then MsgBox "输入有误,请重输入" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End If End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then MsgBox "输入有非数字字符,请重新输入", , "2-2" Text1.SetFocus Text1.SelStart = 0
实验 A VB 环境和可视化编程基础 1． （1）运行界面
（2）参考代码： Private Sub Command1_Click() label3.Caption = text1.Text End Sub 2．模仿教材例 1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边 界的情况。 （1）运行界面
实验 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 Sub Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1.Text = Format(f, "0.00") End Sub 2． （1）运行界面