VB程序设计实验报告

湖北文理学院

VB程序设计课程

实验报告

学 院 物电学院 专 业 自动化 班 级 1211 学 号 姓 名 王亮 任课教师 王福林

实验一、VB控制结构

一、实验目的

1.掌握选择语句的使用 2.掌握循环语句的使用

二、实验内容

1、选择语句

程序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 '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给b

If b > c Then '嵌套，如果b>c

t = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给c

If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If

Print a; \、\、\输出 a \、\、\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; \是素数\不是素数\如果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 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出

For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print \输出* Next n

Print \输出空格 Next m End Sub

程序4如下：

Private Sub Command1_Click() Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxk

For i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \\ 100 'i除以100，结果赋给m

n = (i Mod 100) \\ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给k sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算 If sxh = i Then '如果sxh等于i

Print i, '输出i的值 End If Next i End Sub

Private Sub Command2_Click()

End '程序结束 End Sub

四、实验总结

实验二、窗体和标准控件

一、实验目的

1.掌握命令按钮、标签及文本框控件的使用方法 2.掌握复选框、单选按钮及框架控件的使用方法 3.掌握列表框和组合框控件的使用方法 4.掌握滚动条和定时器控件的使用方法

二、实验内容

1、命令按钮、标签及文本框控件的使用方法

程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。要求在运行时，两个文本框中的内容均不允许用户编辑；如果用户在“原文”的文本框中选定所需的内容，单击“复制”命令按钮，则在“输出”文本框中输出选定的内容；如果单击“结束”命令按钮，则结束程序的运行。

程序2：建立如下图所示的窗体，要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。

2、复选框、单选按钮及框架控件的使用

程序3：在窗体中有一个标签，内有若干文字，要求通过窗体中的复选框或单选按钮确定标签中文字的字体（宋体或黑体）、字号（10号或12号）和字形（是否粗体、是否斜体），请建立应用程序。

3、列表框和组合框控件的使用

程序4：编写程序。要求：程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，单击窗体中“右移”按钮，则左边列表框的10个数移动到右边的列表框中，并由大到小排列，此时“左移”按钮变为有效。单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。单击“退出”按钮或按ESC键，可退出程序。窗体示意图如下。

程序5：建立应用程序，窗体如下图所示，有一个简单组合框、三个命令按

钮、一个文本框和一个标签。要求：

? 单击“添加”按钮可将输入的内容添加到组合框中 ? 单击“删除”按钮可删除组合框中选定的项目

? 单击“统计人数”按钮，可将组合框中的项目总数输出到右边的文本框 ? 单击“退出”或按ESC键退出程序

4、滚动条和定时器控件的使用

程序6：编写程序，运行时的界面如下图所示。要求：无论是拖动滚动条上的滚动框，还是单击滚动箭头（数值递增或递减1）或滚动条（数值递增或递减10），均可以在相应的标签中反映当前数值，并动态计算出均值；单击“Reset”按钮，可将各滚动条上的滚动框复位。

程序7：利用定时器控件设计一个数字式时钟应用程序。

三、实验记录

程序1如下：

Private Sub Form_Load()

Text1.Text = \文本框是一个多功能控件，可以显示或者接收用户输入的文本信息。\给文本框指定内容 End Sub

Private Sub Command1_Click()

Text2.Text = Text1.SelText '在Text1中选定文本赋给Text2 End Sub

Private Sub Command2_Click()

End '程序结束 End Sub

程序2如下：

Private Sub Command1_Click()

If Text1 = \

'如果Text1没有输入，当前的激活文本区（焦点）在Text1

Text1.SetFocus

Exit Sub '退出过程 End If

If Text2 = \

'如果Text2没有输入，当前的激活文本区（焦点）在Text2

Text2.SetFocus

Exit Sub '退出过程 End If

If Text3 = \

'如果Text3没有输入，当前的激活文本区（焦点）在Text3

Text3.SetFocus

本文来源：https://www.bwwdw.com/article/pay2.html