发布时间 : 星期日 文章VB程序设计课程实验报告(样本参考一)更新完毕开始阅读29b3447feffdc8d376eeaeaad1f34693daef10b1
End Sub
Private Sub Text2_Change() If Text3.Text = \ If Val(Text2.Text) = 0 Then
MsgBox \除数分母不能为零\错误提示\ Text2.Text = \ End If End If End Sub
Private Sub Text3_Change()
If Text3.Text = \ Else
MsgBox \运算操作符有错误!\错误提示\ Text3.Text = \ Text3.SetFocus End If End Sub
五、 调试过程
无错误。
六、 实验结果
1.
2.
9 3.
七、 总结
答:从此此实验中掌握了IF语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别.
(四)循环结构程序设计及数组的运用
一、 实验目的和要求
1.掌握For语句的使用。
2.掌握Do语句的各种形式的使用。
3.掌握如何控制循环条件,防止死循环和不循环。 4.掌握数组的声明以及数组元素的引用。 5.掌握静态数组和动态数组的使用差别。
6.应用数组解决与数组有关的常用算法问题。
二、 实验内容和原理
编程计算1-2+3-4+5-6+···+n的值，其中n由文本框输入。运行结果可参考如下图。要求：掌握For语句的正确使用。
三、 实验环境
Microsoft Visual Basic 6.0 中文版
四、 算法描述及实验步骤
Dim sum As Long
Private Sub Command1_Click() If Val(Text1.Text) = 0 Then
MsgBox \不能为零\错误\ ElseIf Val(Text1.Text) < 6 Then For i = 1 To Val(Text1.Text)
If i Mod 2 <> 0 And i <> 1 Then
Label2.Caption = Label2.Caption + \ End If
Label2.Caption = Label2.Caption + Str((-1) ^ (i + 1) * i) Next Add
Label2.Caption = Label2.Caption + Str(sum) Else
10 Label2.Caption = \·\ If Val(Text1.Text) Mod 2 = 0 Then
Label2.Caption = Label2.Caption + \ Else
Label2.Caption = Label2.Caption + \ End If Add
Label2.Caption = Label2.Caption + Str(sum) End If End Sub
Private Sub Text1_LostFocus()
Text1.Text = Str(Val(Text1.Text)) End Sub
Private Sub Add()
For i = 1 To Val(Text1.Text)
sum = sum + (-1) ^ (i + 1) * i Next End Sub
五、 调试过程
无错误
六、 实验结果
七、 总结
答:从此次实验中得到的是掌握了FOR语句的使用,还有的是DO语句的各种形式的使用,如何控制循环和防止死循环或不循环.
(五)过 程
一、 实验目的和要求
1、掌握自定义函数过程和子过程的定义和调用方法。 2、掌握形参和实参的对应关系。
3、掌握值传递和地址传递的传递方式。 4、掌握递归的概念和使用方法。
二、 实验内容和原理
11 1、 编程计算的子过程和函数过程，并分别调用。要求：其中X和n的值由用户给定。 2、 编写函数S（m As Integer，n As Integer）As Long，此函数返回m+mm+mmm+?+mm?
m（n个m）的值。比如S（2，5）的返回值为2+22+222+2222+22222的值。运行后的结果如图所示。
3、 编写递归函数求1+2+3+?+n的值，并显示结果。其中n的值由用户给定。
三、 实验环境
Microsoft Visual Basic 6.0 中文版
四、 算法描述及实验步骤
Dim sum As Long
Private Sub Command1_Click() Text2.Text = \ S Val(Text1.Text)
If (Val(Text1.Text) >= 3) Then
Label1.Caption = \·+2^\ Else
For i = 0 To Val(Text1.Text) If i = Val(Text1.Text) Then
Label1.Caption = Label1.Caption + Str(2 ^ i) + \ Else
Label1.Caption = Label1.Caption + Str(2 ^ i) + \ End If Next End If
Text2.Text = Str(sum) End Sub
Private Function S(count As Integer) As Long sum = 0
For i = 0 To count sum = sum + 2 ^ i Next End Function
五、 调试过程
无错误
六、 实验结果
七、 总结
答：此次实验中得到的结果是掌握自定义函数过程和子过程的定义和调用方法。
12