vb实验报告范本 doc

第21页共26页

系： 计算机与信息学院 专业： 计算机应用技术 年级： 05级 姓名： 洪景泉 学号： 051893067 计算机号 67 实验时间： 2007、5、23 实验地点： 综南附307 指导教师签字： 黄红兵

实验八 循环结构程序设计及动态数组的应用

一、实验目的和要求

1.熟练掌握动态数组的使用。 2.进一步提高编程技巧。

二、实验内容和原理

1.声明一个二维动态数组a（1 to n,1 to n）代表一个n*n的方阵。编程给数组元素赋值， 使之成为如图所示的螺旋方阵。要求：n由文本框输入。 用户界面：

实验代码： Option Base 1

Private Sub Command1_Click()

Dim a() As Integer, a1%, a2%, a3%, a4%, m%, n%, i%, j% n = Val(Trim(Text1.Text)) ReDim a(n, n) k = Fix(n / 2) m = 1

For i = 1 To k '矩阵圈数 For a1 = i To n - i '左边部分 a(a1, i) = m m = m + 1 Next a1

For a2 = i To n - i '下面部分 a(a1, a2) = m m = m + 1 Next a2

For a3 = n - i + 1 To i + 1 Step -1 '右面部分 a(a3, a2) = m m = m + 1

第22页共26页

Next a3

For a4 = n - i + 1 To i + 1 Step -1 '上面部分 a(a3, a4) = m m = m + 1 Next a4 Next i

If n Mod 2 = 1 Then '如果n为奇数 a((n + 1) / 2, (n + 1) / 2) = n * n End If

For i = 1 To n '输出螺旋方阵 For j = 1 To n

If a(i, j) < 10 Then

Print Space$(1); a(i, j); Else

Print a(i, j); End If Next j Print Next i End Sub

Private Sub Command2_Click() Form1.Cls

Text1.Text = \Text1.SetFocus End Sub

三、总结

通过本次实验熟练掌握了动态数组的使用，.进一步提高了用动态数组解决相关问题的能力。

第23页共26页

系： 计算机与信息学院 专业： 计算机应用技术 年级： 05级 姓名： 洪景泉 学号： 051893067 计算机号 67 实验时间： 2007、5、30 实验地点： 综南附307 指导教师签字： 黄红兵

实验九 综合实例（一）

一、实验目的和要求

进一步提高编程技巧。

二、实验内容和原理

1.编写一个简单的计算器。要求：能实现简单的基本运算，以及实现八进制、十六进制的转换。用户界面：

实验代码：

Dim op1, op2 As Single Dim firstinput As Boolean

Dim opflag, lastinput, disp As String Private Sub clea_Click() disp = Format(0, \op1 = 0：op2 = 0 firstinput = True lastinout = \Text1.Text = \End Sub

Private Sub Form_Load() Text1.Text = \ firstinput = True disp = Format(0, \op1 = 0：op2 = 0 firstinput = True lastinout = \Text1.Text = \End Sub

Private Sub num_Click(Index As Integer) If lastinput <> \ disp = num(Index).Caption Else

第24页共26页

disp = disp + num(Index).Caption End If

lastinput = \Text1.Text = disp End Sub

Private Sub operator_Click(Index As Integer) If firstinput = True Then op1 = Val(disp) firstinput = False Else

op2 = Val(disp) Select Case opflag Case \

op1 = op1 + op2 Case \

op1 = op1 - op2 Case \

op1 = op1 * op2 Case \

If op2 = 0 Then MsgBox \ Else

op1 = op1 / op2 End If End Select

If operator(Index).Caption = \ disp = op1

Text1.Text = op1 End If

firstinput = True End If

lastinput = \

opflag = operator(Index).Caption End Sub

Private Sub tran_Click(Index As Integer) Select Case Index Case 0

Text1.Text = Hex(Val(Text1.Text)) Case 1

Text1.Text = Oct(Val(Text1.Text)) End Select End Sub

三、总结

通过本次实验进一步提高了编程技巧