课程实验报告1

课程实验报告

专业年级 金融工程

课程名称财政学

指导教师罗老师

学生姓名王某某

学号

实验日期 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

For I = 2 To 16

Command1(I).Enabled = False

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

For I = 8 To 16

Command1(I).Enabled = False

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

For I = 11 To 16

Command1(I).Enabled = False

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

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

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

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

F1610 = K

End Function

Private Sub Timer1_Timer()

StatusBar1.Panels(2).Text = Date & " " & Time

End Sub

总结：通过vb设计计算器使自己掌握select case的编写方法以既vb中部件的属性设置方法。

不足：不能实现科学计数法，三角函数运算等复杂运算。

相关推荐

课程实验报告1

第二篇：打印计算机vb设计课程实验报告1

Case 8

专栏推荐