vb各种实验练习

实验题目1：设计一个六六大顺的小游戏，单击“旋转”按钮时分别在三个文本框中随机产生3个数字，其中只要出现“6”就显示图片，单击退出按钮结束程序的运行。

界面如下：（课内实验1分）实验题目1源程序代码：Private Sub Command1_Click()Image1.Visible = FalseLabel1.Caption = Int(Rnd * 10)Label2.Caption = Int(Rnd * 10)Label3.Caption = Int(Rnd * 10)If (Label1.Caption = 6) Or (Label2.Caption = 6) Or (Label3.Caption = 6) ThenImage1.Visible = TrueEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub实验题目2：设计一个计算器，使其能实现算术运算的演示功能，运行界面如下：实验题目2源程序代码：Private Sub Command1_Click()Text5.Text = Val(Text1.Text) + Val(Text3.Text)End SubPrivate Sub command2_click()Text5.Text = Val(Text1.Text) - Val(Text3.Text)End SubPrivate Sub command3_click()Text5.Text = Val(Text1.Text) * Val(Text3.Text)End SubPrivate Sub commond3_click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text5.Text = Val(Text1.Text) / Val(Text3.Text)End SubPrivate Sub command5_click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub command6_click()EndEnd Sub实验题目1：分别在两个文本框里面输入一个两位数，在第三个文本框里面生成一个新的四位数：千位为第一个数的个位，百位为第为第二个数的个位，十位为第一个数的十位，个位为第二个数的十位。

实验题目1源程序代码及运行界面：Private Sub Command1_Click()Dim num1$, num2$, a%, b%, c%, d%num1 = Text1.Textnum2 = Text2.Texta = Left(num1, 1)b = Right(num1, 1)c = Left(num2, 1)d = Right(num2, 1)Text3.Text = b & d & a & cEnd SubPrivate Sub Command2_Click()EndEnd Sub实验题目2：编写程序实现如下功能：输入半径，求圆的周长、面积。

实验题目2源程序代码及运行界面：Const pi = 3.14Dim r!Private Sub Command1_Click()Dim s!r = Val(Text1.Text)s = pi * r ^ 2Text2.Text = sEnd SubPrivate Sub Command2_Click()Dim c!r = Val(Text1.Text)c = pi * r * 2Text3.Text = cEnd SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub实验题目3：当用户运行程序，在标题栏显示“装入窗体”；单击窗体，在标题栏显示“鼠标单击”，在窗体上显示“单击窗体”；当用户双击窗体，在标题栏显示“鼠标双击”，并在窗体上显示“双击窗体”。

实验题目3源程序代码及运行界面：Private Sub Form_Click()ClsForm1.Caption = "鼠标单击"Print "单击窗体"End SubPrivate Sub Form_DblClick()ClsForm1.Caption = "鼠标双击"Print "双击窗体"End SubPrivate Sub Form_Load()Form1.Caption = "装入窗体"End Sub实验题目4：在窗体上添加一个文本框、5个命令按钮，要求文本框能够输入多行文本，并且要求显示水平与垂直滚动条。

单击“加粗”命令按钮时，使文本框里的文本加粗，单击“斜体”按钮时，文本框里的文本变为斜体，单击“40磅”时，文本框里的文本字体大小设置为40，单击“隶书”时，文本框里的文本字体变为隶书。

实验题目4源程序代码及运行界面：Private Sub Command1_Click()Text1.FontBold = Not Text1.FontBoldEnd SubPrivate Sub Command2_Click()Text1.FontItalic = Not Text1.FontItalicEnd SubPrivate Sub Command3_Click()Text1.FontSize = 40End SubPrivate Sub Command4_Click()Text1.FontName = "隶书"End SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()Text1.FontUnderline = Not Text1.FontUnderlineEnd SubPrivate Sub Command7_Click()Text1.Text = ""End Sub实验题目5：文本编辑窗体设计：复制按钮的功能如下所示：（提示：利用文本框的seltext属性）Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = ""End SubPrivate Sub Command3_Click()Text2.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub实验题目6：两数交换Private Sub Command1_Click()Text3.Text = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextEnd SubPrivate Sub Command2_Click()EndEnd Sub实验题目7：move方法练习，单击移动按钮时，图片向右下方移动。

Private Sub Command1_Click()Image1.Left = Image1.Left + 200Image1.Top = Image1.Top + 300End SubPrivate Sub Command2_Click()EndEnd Sub实验题目1：设计程序，要求通过键盘输入任意一个三位整数，分别利用算术运算和字符运算的方式逆序显示这个数。

（1）程序运行时，单击“输入”命令按钮，用键盘输入三位数，并将其显示在文本框中。

（调用inputbox函数输入成绩，并用内存变量保存该数）（2）单击“算术运算”按钮，则在后面的文本框显示以算术运算方式计算出来的这个三位数的逆序数。

（提示利用求余或整除以及乘法运算实现）（3）单击“字符运算”按钮，则在后面的文本框显示以字符运算方式计算出来的这个三位数的逆序数。

（提示利用left(),right()或mid()函数以及字符串连接运算符“&”运算实现）实验题目1源程序代码及运行界面：Dim a$Private Sub Command1_Click()a = InputBox(请输入一个三位数)Text1.Text = aEnd SubPrivate Sub Command2_Click()Dim b%, c%, d%b = Val(a) \ 100c = (Val(a) \ 10) Mod 10d = Val(a) Mod 10Text2.Text = d * 100 + c * 10 + bEnd SubPrivate Sub Command3_Click()Dim b$, c$, d$b = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)Text3.Text = d & c & bEnd Sub实验题目2：写一个程序，在窗体上显示出如图的字符图形：****************[提示：](1)可以利用4个print语句显示4行星号；(2)注意每行前面的空格，可在每行输出的星号前包含一个由若干个空格组成的字符串调整后续输出位置，例如：Print " "+"****"(3)查一查，space()函数的用法(4)学会Tab函数在Print中的用法,例如:x=2Print tab(x);"****"改变x的值，即可方便控制星号在本行中输出的位置。

实验题目2源程序代码及运行界面：Private Sub Form_Click()Print " " + "****"Print " " + "****"Print " " + "****"Print " " + "****"End Sub实验题目3：编程，通过InputBox让用户输入一个名字保存到变量x中，例如输入“Apple”。