- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
计算机vb设计课程
实验报告说明书
题 目:计算器
姓 名:
班 级:
指导老师:
2011年7月8日
设计名称:基础用途计算器
设计目的:通过vb程序设计出计算器进行一些简单运算和进制的转换。
计算器设计界面:
设计步骤:
新建一个工程
设置控件:
插入一个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部件,右键插入窗格,设置窗格宽度,文本。
编写程序代码: 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
文档评论(0)