VB程序设计实验报告.doc

湖北文理学院 VB程序设计课程 实验报告 学 院 物电学院 专 业 自动化 班 级 1211 学 号 2012118064 姓 名 王亮 任课教师 王福林 实验一、VB控制结构 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 程序2：创建应用程序。要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。 2、循环语句 程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案。 程序4：创建应用程序，其功能是显示所有的水仙花数。 三、实验记录 程序1如下： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, t As Integer 定义a,b,c,t为整形变量 Cls 清屏 a = Val(InputBox(请输入第1个数：)) 给a赋值 b = Val(InputBox(请输入第2个数：)) 给b赋值 c = Val(InputBox(请输入第3个数：)) 给c赋值 If a b Then t = a: a = b: b = t 如果ab，把a的值赋给t，b的值赋给a，t的值赋给b If b c Then 嵌套，如果bc t = b: b = c: c = t 把b的值赋给t，b的值赋给c，t的值赋给c If a b Then 再次嵌套，如果ab t = a 把a的值赋给t a = b b的值赋给a b = t t的值赋给b End If End If Print a; 、; b; 、; c 输出 a 、b;、; c End Sub Private Sub Command2_Click() End 退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer 定义整形变量i,k,n n = Val(InputBox(任意输入一个整数：)) 给n输入值 i = 2 i初始值为2 k = Int(n / 2) 为整形的二分之一n的值赋给k Do While i = k 当i小于且等于k If n Mod i = 0 Then 如果n模除i为0 Exit Do 退出循环 Else i = i + 1 否则i加1 End If Loop If i k Then Print n; 是素数 Else Print n; 不是素数 如果i大于k，输出n的值是素数，否则输出n的值不是素数 End Sub Private Sub Command2_Click() End 退出程序 End Sub 程序3如下： Private Sub Form_Click() Dim m As Integer, n As Integer 定义整形变量m,n Cls 清屏 Print For m = 1 To 6