实验二-实验报告.doc

实验二-实验报告
实 验 报 告
课程名称 Visual Basic 程序设计
实验项目 顺序结构程序设计

内容描述】
设计一个简单的四则运算计算器程序。在文本框输入数据，单击命令按钮，即可的到运算结果单击清楚即可清除文本框数据。
【分析】
界面分析（用到哪些控件）
窗体、命令按钮、文本框、标签。
程序分析（用到哪些算法和关键技术）
通过文本框的Text属性指控可以事先清除数据
【设计】
（1）界面设计（给出界面截图）

（2）代码设计（给出程序代码）
Private Sub CmdAdd_Click()
= Val() + Val()
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdSub_Click()
= Val() - Val()
End Sub
【运行结果】（给出运行结果界面截图）
1.
【内容描述】
打印一个三角形图案的程序。在行数文本框输入行数，字符文本框输入要打印的字符单击图案按钮即可显示三碱性的图案单击清除按钮即可清除图案单击推出按钮则推出程序。
【分析】
界面分析（用到哪些控件）
窗体、命令按钮、文本框、标签、计时器。
程序分析（用到哪些算法和关键技术）
使用两个计时器控件控制图案的打印
【设计】
（1）界面设计（给出界面截图）】


（2）代码设计（给出程序代码）
Dim n As Integer
Dim ch As String
Private Sub Command1_Click()
Dim h As Integer
n = 0
h = Val()
ch =
= (h + 1) * 200
= True
= True
End Sub
Private Sub Timer1_Timer()
n = n + 1
Print Tab(28 - n); String(2 * n - 1, ch)
End Sub
Private Sub Timer2_Timer()
= False
= False
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Command3_Click()
End
End Sub
【运行结果】（给出运行结果界面截图）
1.
【内容描述】
设计一个计算构成所发工资的各种面额钞票张数最少的付款方案
【分析】
界面分析（用到哪些控件）
文本框、按钮
程序分析（用到哪些算法和关键技术）
可以通过整除运算计算某种面额钞票的张数，通过求余运算计算去掉该种面额后剩余的工资数
【设计】
（1）界面设计（给出界面截图）
（2）代码设计（给出程序代码）
Private Sub Command1_Click()
Dim x As Long, y As Long
x = Val()
y = x \ 100: = y
x = x Mod 100
y = x \ 50: = y
x = x Mod 50
y = x \ 20: = y
x = x Mod 20
y = x \ 10: = y
x = x Mod 10
y = x \ 5: = y
x = x Mod 5
= x
End Sub
Private Sub Command2_Click()