VB实验指导例题.docx

1、VB实验指导例题实验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.L

2、eft = 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.Cap

3、tion = 鼠标单击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.Font

4、Size = 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(Tex

5、t1.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

6、 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 SubP

7、rivate Sub Text1_LostFocus()If Not IsNumeric(Text1) ThenMsgBox 输入有非数字字符,请重新输入, , 2-2Text1.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 & 年后,我国人口

8、超过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 Mo

9、d 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程序设计教程(第三版)Label

10、1.Caption = Left(Text1.Text, 11)Label2.Caption = Mid(Text1.Text, 12, 6)Label3.Caption = Right(Text1.Text, 5)End Sub7Print方法练习，显示字符图形。（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 S

11、ub 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)运行界面

12、(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、在购买某物品时

13、，若所标明的价钱x在下述围，所付钱y按对应所扣支付：提示：此题用多分支结构实现，注意计算公式和条件表达式的正确书写。实验目的：掌握多边if语句的正确使用实验步骤：1 新建新工程2 要求单击窗体提示物品的价钱，最后在窗体上显示所付钱y 代码如下：Private Sub Form_Click() Dim x As Single, y As Single x = Val(InputBox(请输入物品价钱：) If x = 1000 And x = 2000 And x = 3000 Then y = 0.7 * x End If Print 所付钱为：; yEnd Sub2、编一程序输入上网的时间并

14、计算上网费用，计算的方法如下：同时为了鼓励多上网，每月收费最多不超过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(请输入第二个数)

15、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 If y z Then d = y: y = z: z = d End If If x y Then d = x: x = y: y = d End IfPrint 排序后; x; Spc(5); y; Spc(5); zEnd Sub5、利用计算机解

16、决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？实验目的：掌握if语句使用，分析解题中出现的可能情况，避免出现不合理的结果，提高解决实际问题的能力。实验步骤：1 创建新工程界面如上2 代码如下：Private Sub Form_Load() Label1.Caption = 输入总只数 Label2.Caption = 输入总脚数 Label3.Caption = 求得鸡数 Label4.Caption = 求得兔数 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End S

17、ubPrivate Sub Form_Load() Label1.Caption = 输入总只数 Label2.Caption = 输入总脚数 Label3.Caption = 求得鸡数 Label4.Caption = 求得兔数 Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub Text2_LostFocus() Dim m%, n%, y% m = Val(Text1) n = Val(Text2) If n Mod 2 0 Then MsgBox (脚数必定为偶数) Text2 = Text2.S

18、etFocus Else y = n / 2 - m If y =2倍的头数, vbOKOnly, sy2 - 5 Text2 = Text2.SetFocus Else x = m - y Text3 = x Text4 = y End If End IfEnd Sub6、输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的连个根x1，x2.实验步骤：1 创建一个新的工程2 代码如下：Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Val(Text1.Text) b

19、 = Val(Text2.Text) c = Val(Text3.Text) If a 0 Then delta = b 2 - 4 * a * c re = -b / (2 * a) If delta 0 Then sb = Sqr(delta) / (2 * a) Text4.Text = Str(re + sb) Text5.Text = Str(re - sb) ElseIf delta = 0 Then Text4.Text = Str(re) Text5.Text = Str(re) Else xb = Sqr(-delta) / (2 * a) Text4.Text = Str(

20、re) & + & Str(xb) & i Text5.Text = Str(re) & - & Str(xb) & i End If Else If b 0 Then ygz = -b / c Text4.Text = Str(ygz) Else Text4.Text = 方程无意义！ End If End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1 = : Text2 = Text3 = : Text4 = Text5 = End Sub7、编一模拟袖珍计算器的完整程序，。要求：

21、输入两个操作数和一个操作符，根据操作符决定所做的运算。实验目的：掌握select case语句的使用1 新建一个工程2 代码如下：Private Sub Command1_Click() op = Trim(Text3.Text) Select Case op Case + Text4.Text = Val(Text1) + Val(Text2) Case - Text4.Text = Val(Text1) - Val(Text2) Case * Text4.Text = Val(Text1) * Val(Text2) Case / If Val(Text2) = 0 Then MsgBox

22、除数不能是零！，重新输入 Text2 = Text2.SetFocus Else Text4.Text = Val(Text1) / Val(Text2) End If End SelectEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = : Text2.Text = Text3.Text = : Text4.Text = End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Tex

23、t = : Text2.Text = Text3.Text = : Text4.Text = End Sub8、输入一个数字（17），分别通过select语句和choose函数两种方法用英文显示对应的星期一星期日略:参考书上例子4.10实验D循环结构一、实验目的 1 掌握for语句的使用 2 掌握Do语句的各种形式的使用 3 掌握如何控制循环条件，防止死循环或不循环二、实验容实验目的：掌握单循环结构以及tab、trim函数的使用。1、利用单循环结构显示如图所示的界面实验步骤：1 创建一个新的工程2 代码如下Private Sub Form_Click() For i = 1 To 9 Prin

24、t Tab(10 - i); String(2 * i - 1, Trim(Str(i) Next iEnd Sub2、用单循环实现如图的界面实验步骤1 创建一个新的工程2 主要代码如下：For i = 1 To 9 Print Tab(i); String(2 * (10 - i), Trim(Chr(i + 64)Next i3、计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+.当第i项的值 0.00001 t = t + i s = s + 1 / t i = i + 1 Loop Print Do while结构; s, i - 1; 项End SubPri

25、vate Sub Command2_Click() Dim s!, t!, i& s = 1: t = 1 For i = 1 To 100000 t = t + i s = s + 1 / t If 1 / t 0.00001 Then Exit For Next i Print for 结构; s, i; 项End Sub4、计算的近似值，的计算公式为：=实验步骤： 1 新建一个工程 2 代码如下：注意溢出问题Private Sub Form_Click() Dim i As Long, s As Double s = 2 n% = Val(InputBox(输入n的值：) For i =

26、 1 To n s = s * (2 * i) 2) / (2 * i - 1) * (2 * i + 1) Next i Print 当n为：; n; 时计算结果为; sEnd Sub5、求sn=a+aa+aaa+aaaa+.+aaa(n个a)，其中a是一个随机数产生的19（包括1，9）中的一个正整数，n是一个随机产生的510（包括5，10）中的一个数。实验目的：学会根据问题的要求找规律、写通项；掌握循环的正确使用。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1)

27、n = Int(Rnd * 6 + 5) Print a= & a; n= & n t = 0: s = 0 For i = 1 To n t = t * 10 + a s = s + t Print t; Next i Print s=; sEnd Sub6、编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于数字本身。提示：解该题的方法有两种：1 利用三重循环，将三个数连接成一个3位数进行判断。实验步骤：1 新建一个工程2 代码如下：Private Sub Form_Click()Dim i%, j%, k% For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = i