课程实验报告
专业年级 金融工程
课程名称 财政学
指导教师 罗老师
学生姓名 王 某某
学 号
实验日期 2010/12/13
实验地点 实验楼
实验成绩
教务处制
20##年 12月12日
注：可根据实际情况加页
第二篇：打印计算机vb设计课程实验报告1
计算机vb设计课程
实验报告说明书
题 目：计算器、扫雷
姓 名：
班 级：
指导老师：
一． 设计名称：基础用途计算器
二． 设计目的：通过vb程序设计出计算器进行一些简单运算和进制的转换。
三． 计算器设计界面：
四． 设计步骤：
1） 新建一个工程
2） 设置控件：
插入一个text1控件，font属性字号为“一号”， textAlign属性调成Right。
插入一个标签控件（Label1），设置标题属性为“进制”
插入四个单选按钮，设置caption属性分别为2进制，8进制，10进制，16进制。
插入一个timer控件，将Interval属性设置为“100”
添加一个command1控件数组数目为17，command1(0)至command1(9)caption属性分别设置为由0至9，command1(10)标题属性设置为“.” ，command1(11)至command1(16)caption属性分别设置为A至F。
添加控件command2,caption属性为“=”
添加command3控件数组数目为4，caption属性分别为“+”，“-”，“*”，“/”
添加控件command4, command5, command6, command7设置标题属性分别为“CE”“SQR”“X^2”“1/X”
添加部件Microsoft Windows Common Controls 6.0
添加StatusBar部件，右键插入窗格，设置窗格宽度，文本。
3） 编写程序代码：
Dim a#, b#, x$, K%
Private Sub Command1_Click(Index As Integer)
Text1 = Text1 & Command1(Index).Caption
End Sub
Private Sub Command2_Click()
b = Val(Text1)
Select Case x
Case "+"
M = a + b
Case "-"
M = a - b
Case "*"
M = a * b
Case "/"
If b <> 0 Then
M = a / b
Else
MsgBox "分母为0", "65", "警告"
End If
End Select
Text1 = M
If M < 1 And M > 0 Then Text1 = "0" & Text1
If M > -1 And M < 0 Then Text1 = "-0" & Abs(Val(Text1))
End Sub
Private Sub Command3_Click(Index As Integer)
a = Val(Text1): Text1 = ""
x = Command3(Index).Caption
End Sub
Private Sub Command4_Click()
Text1 = ""
End Sub
Private Sub Command5_Click()
K = Val(Text1)
Text1 = Sqr(K)
End Sub
Private Sub Command6_Click()
t = Val(Text1)
Text1 = t ^ 2
End Sub
Private Sub Command7_Click()
I = Val(Text1)
Text1 = 1 / I
End Sub
Private Sub Form_Load()
K = 10
Option3.Value = True
End Sub
Private Sub Option1_Click()
For I = 0 To 1
Command1(I).Enabled = True
Next
For I = 2 To 16
Command1(I).Enabled = False
Next
Command1(10).Enabled = True
M = Val(Text1)
Select Case K
Case 10
Text1 = F102(Text1)
Case 2
S1 = Text1
Case 16
S2 = F1610(Text1)
Text1 = F102(S2)
Case 8
S3 = F810(Text1)
Text1 = F102(S3)
End Select
K = 2
End Sub
Private Sub Option2_Click()
For I = 0 To 7
Command1(I).Enabled = True
Next
For I = 8 To 16
Command1(I).Enabled = False
Next
Command1(10).Enabled = True
M = Val(Text1)
Select Case K
Case 10
Text1 = Oct(M)
Case 2
S1 = F210(Text1)
Text1 = Oct(S1)
Case 16
S2 = F1610(Text1)
Text1 = Oct(S2)
Case 8
Text1 = M
End Select
K = 8
End Sub
Private Sub Option3_Click()
For I = 0 To 10
Command1(I).Enabled = True
Next
For I = 11 To 16
Command1(I).Enabled = False
Next
M = Val(Text1)
Select Case K
Case 10
Text1 = M
Case 2
Text1 = F210(Text1)
Case 16
Text1 = F1610(Text1)
Case 8
Text1 = F810(Text1)
End Select
K = 10
End Sub
Private Sub Option4_Click()
For I = 0 To 16
Command1(I).Enabled = True
Next
M = Val(Text1)
Select Case K
Case 10
Text1 = Hex(M)
Case 2
S1 = F210(Text1)
Text1 = Hex(S1)
Case 16
S2 = F1610(Text1)
Text1 = Hex(S2)
Case 8
S2 = F810(Text1)
Text1 = Hex(S2)
End Select
K = 16
End Sub
Function F102(S)
K = Val(S)
x = ""
While K <> 0
x = K Mod 2 & x
K = K \ 2
Wend
F102 = x
End Function
Function F210(S)
K = 0
For I = 0 To Len(S) - 1
K = K + Val(Mid(S, Len(S) - I, 1)) * 2 ^ I
Next
F210 = K
End Function
Function F810(S)
K = 0
For I = 0 To Len(S) - 1
K = K + Val(Mid(S, Len(S) - I, 1)) * 8 ^ I
Next
F810 = K
End Function
Function F1610(S)
K = 0
For I = 0 To Len(S) - 1
x = Mid(S, Len(S) - I, 1)
Select Case x
Case "1" To "9"
K = K + Val(x) * 16 ^ I
Case "A" To "F"
K = K + (Asc(x) - 55) * 16 ^ I
End Select
Next
F1610 = K
End Function
Private Sub Timer1_Timer()
StatusBar1.Panels(2).Text = Date & " " & Time
End Sub
总结：通过vb设计计算器使自己掌握select case的编写方法以既vb中部件的属性设置方法。
不足：不能实现科学计数法，三角函数运算等复杂运算。