计算机vb设计课程实验报告--基础用途计算器

《计算机vb设计课程实验报告--基础用途计算器》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、计算机vb设计课程实验报告说明书　　　　　　　　　　　　　题　　目：计算器　　　　　　　　　　　姓　　名：　　　　　　　　　　　　　班　　级：　　　　　　　　　　　指导老师：　　２０１１年７月8日4一．设计名称：基础用途计算器二．设计目的：通过vb程序设计出计算器进行一些简单运算和进制的转换。三．计算器设计界面：四．设计步骤：1）新建一个工程2）设置控件：插入一个text1控件，font属性字号为“一号”，textAlign属性调成Right。插入一个标签控件（Label1），设置标题属性为“进制”插入四个单选按钮，设置caption属性分别为2进制，8进制，10进制，16进

2、制。插入一个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

3、”“X^2”“1/X”添加部件MicrosoftWindowsCommonControls6.0添加StatusBar部件，右键插入窗格，设置窗格宽度，文本。3）编写程序代码：4Dima#,b#,x$,K%PrivateSubCommand1_Click(IndexAsInteger)Text1=Text1&Command1(Index).CaptionEndSubPrivateSubCommand2_Click()b=Val(Text1)SelectCasexCase"+"M=a+bCase"-"M=a-b4Case"*"M=a*bCase"/"Ifb<>0ThenM=a/

4、bElseMsgBox"分母为0","65","警告"EndIfEndSelectText1=MIfM<1AndM>0ThenText1="0"&Text1IfM>-1AndM<0ThenText1="-0"&Abs(Val(Text1))EndSubPrivateSubCommand3_Click(IndexAsInteger)a=Val(Text1):Text1=""x=Command3(Index).CaptionEndSubPrivateSubCommand4_Click()Text1=""EndSubPrivateSubCommand5_Click()K=Val(T

5、ext1)Text1=Sqr(K)EndSubPrivateSubCommand6_Click()t=Val(Text1)Text1=t^2EndSubPrivateSubCommand7_Click()I=Val(Text1)Text1=1/IEndSubPrivateSubForm_Load()K=10Option3.Value=TrueEndSubPrivateSubOption1_Click()ForI=0To1Command1(I).Enabled=TrueNextForI=2To16Command1(I).Enabled=FalseNextCommand1(10)

6、.Enabled=TrueM=Val(Text1)SelectCaseKCase10Text1=F102(Text1)Case2S1=Text1Case16S2=F1610(Text1)Text1=F102(S2)Case8S3=F810(Text1)Text1=F102(S3)EndSelectK=2EndSubPrivateSubOption2_Click()ForI=0To7Command1(I).Enabled=TrueNextForI=8To16Command1(I).Enabled=FalseNextCommand1(10).Enabled=TrueM=Val(T

7、ext1)SelectCaseKCase10Text1=Oct(M)Case2S1=F210(Text1)Text1=Oct(S1)Case16S2=F1610(Text1)Text1=Oct(S2)Case8Text1=MEndSelectK=8EndSubPrivateSubOption3_Click()ForI=0To10Command1(I).Enabled=True4NextForI=11To16Command1(I).Enabled=FalseNextM=Val(Text1)SelectCa