打印计算机vb设计课程实验报告1

PAGEPAGE2计算机vb设计课程实验报告说明书题目：计算器、扫雷姓名：班级：指导老师：设计名称：基础用途计算器设计目的：通过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”添加部件MicrosoftWindowsCommonControls6.0添加StatusBar部件，右键插入窗格，设置窗格宽度，文本。编写程序代码：Dima#,b#,x$,K%PrivateSubCommand1_Click(IndexAsInteger)Text1=Text1&Command1(Index).CaptionEndSubPrivateSubCommand2_Click()b=Val(Text1)SelectCasexCase"+"M=a+bCase"-"M=a-bCase"*"M=a*bCase"/"Ifb<>0ThenM=a/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(Text1)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).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(Text1)SelectCaseKCase10Text1=Oct(M)Case2S1=F210(Text1)Text1=Oct(S1)Case16S2=F1610(Text1)Text1=Oct(S2)Case8Text1=MEndSelectK=8EndSubPrivateSubOption3_Click()ForI=0To10Command1(I).Enabled=TrueNextForI=11To16Command1(I).Enabled=FalseNextM=Val(Text1)SelectCaseKCase10Text1=MCase2Text1=F210(Text1)Case16Text1=F1610(Text1)Case8Text1=F810(Text1)EndSelectK=10EndSubPrivateSubOption4_Click()ForI=0To16Command1(I).Enabled=TrueNextM=Val(Text1)SelectCaseKCase10Text1=Hex(M)Case2S1=F210(Text1)Text1=Hex(S1)Case16S2=F1610(Text1)Text1=Hex(S2)Case8S2=F810(Text1)Text1=Hex(S2)EndSelectK=16EndSubFunctionF102(S)K=Val(S)x=""WhileK<>0x=KMod2&xK=K\2WendF102=xEndFunctionFunctionF210(S)K=0ForI=0ToLen(S)-1K=K+Val(Mid(S,Len(S)-I,1))*2^INextF210=KEndFunctionFunctionF810(S)K=0ForI=0ToLen(S)-1K=K+Val(Mid(S,Len(S)-I,1))*8^INextF810=KEndFunctionFunctionF1610(S)K=0ForI=0ToLen(S)-1x=Mid(S,Len(S)-I,1)SelectCasexCase"1"To"9"K=K+Val(x)*16^ICase"A"To"F"K=K+(Asc(x)-55)*16^IEndSelectNextF1610