vb计算器设计报告
vb 简易计算器实验报告
简易计算器课程设计报告一、实验目的:模拟计算器的功能。
系统启动后, 先清屏, 再在显示屏右侧显示0字样, 系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键, 其余按键不响应。
按键后屏幕显示效果要达到一般计算器显示屏的同样效果。
不要求设计一般计算器上都具有的M功能。
二、实验设计内容及思想:首先, 创建一个主体框架: 建立程序的主要界面后, 系统自动生成界面的主要窗口生成代码。
对于每个按钮的的代码段中, 分别添加事件触发的处理代码。
分别设立三个显示屏, 第一个显示屏作为“被加数”框, 第二个显示屏作为“加数”框, 第三个显示屏则作为输出框。
四则运算时直接采用计算表达式。
所以, 优先级和运算规则皆宜考虑在内。
在进行除法运算时, 若遇到除数为0, 则运用条件语句执行, 并在输出显示屏上输出“E”。
三角函数、指数、对数、整除、取余等运算, 也是运用类似手法。
考虑到计算器的操作简便性, 所以加入了复位和退出按钮。
三、源程序文件:Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x + yEnd SubPrivate Sub Command10_Click()Dim x As Integerx = Text1.TextText3.Text = Cos(x)End SubPrivate Sub Command11_Click()Dim x As Integerx = Text1.TextText3.Text = Tan(x)End SubPrivate Sub Command12_Click()Dim x As Integerx = Text1.TextText3.Text = Atn(x)End SubPrivate Sub Command13_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x ^ yEnd SubPrivate Sub Command14_Click() Dim x As Integerx = Text1.TextIf x <= 0 ThenText3.Text = "输入错误"ElseText3.Text = Log(x)End IfEnd SubPrivate Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End SubPrivate Sub Command2_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x - yEnd SubPrivate Sub Command3_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x * yEnd SubPrivate Sub Command4_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextIf y = 0 ThenText3.Text = "E"ElseText3.Text = x / yEnd IfEnd SubPrivate Sub Command5_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x \ yEnd SubPrivate Sub Command6_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x Mod yEnd SubPrivate Sub Command7_Click()Text1.Text = ""Text2.Text = ""Text3.Text = " 0" End SubPrivate Sub Command8_Click()EndEnd SubPrivate Sub Command9_Click()Dim x As Integerx = Text1.TextText3.Text = Sin(x)End Sub源代码截图:四、运行结果演示: 加法演示:减法演示: 乘法演示:除法演示:能够整除: 不能够整除:除数为零:。
打印计算机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 SubPrivate 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 ThenM = a / bElseMsgBox "分母为0", "65", "警告"End IfEnd SelectText1 = MIf M < 1 And M > 0 Then Text1 = "0" & Text1If M > -1 And M < 0 Then Text1 = "-0" & Abs(V al(Text1))End SubPrivate Sub Command3_Click(Index As Integer)a = Val(Text1): Text1 = ""x = Command3(Index).CaptionEnd SubPrivate Sub Command4_Click()Text1 = ""End SubPrivate Sub Command5_Click()K = Val(Text1)Text1 = Sqr(K)End SubPrivate Sub Command6_Click()t = Val(Text1)Text1 = t ^ 2End SubPrivate Sub Command7_Click()I = Val(Text1)Text1 = 1 / IEnd SubPrivate Sub Form_Load()K = 10Option3.Value = TrueEnd SubPrivate Sub Option1_Click()For I = 0 To 1Command1(I).Enabled = TrueNextFor I = 2 To 16Command1(I).Enabled = FalseNextCommand1(10).Enabled = TrueM = Val(Text1) Select Case KCase 10Text1 = F102(Text1)Case 2S1 = Text1Case 16S2 = F1610(Text1)Text1 = F102(S2)Case 8S3 = F810(Text1)Text1 = F102(S3)End SelectK = 2End SubPrivate Sub Option2_Click() For I = 0 To 7Command1(I).Enabled = True NextFor I = 8 To 16Command1(I).Enabled = False NextCommand1(10).Enabled = True M = Val(Text1)Select Case KCase 10Text1 = Oct(M)Case 2S1 = F210(Text1)Text1 = Oct(S1)Case 16S2 = F1610(Text1)Text1 = Oct(S2)Case 8Text1 = MEnd SelectK = 8End SubPrivate Sub Option3_Click() For I = 0 To 10Command1(I).Enabled = True NextFor I = 11 To 16Command1(I).Enabled = False NextM = Val(Text1)Select Case KCase 10Text1 = MCase 2Text1 = F210(Text1)Case 16Text1 = F1610(Text1)Case 8Text1 = F810(Text1)End SelectK = 10End SubPrivate Sub Option4_Click() For I = 0 To 16Command1(I).Enabled = True NextM = Val(Text1)Select Case KCase 10Text1 = Hex(M)Case 2S1 = F210(Text1)Text1 = Hex(S1)Case 16S2 = F1610(Text1)Text1 = Hex(S2)Case 8S2 = F810(Text1)Text1 = Hex(S2)End SelectK = 16End SubFunction F102(S)K = Val(S)x = ""While K <> 0x = K Mod 2 & xK = K \ 2WendF102 = xEnd FunctionFunction F210(S)K = 0For I = 0 To Len(S) - 1K = K + Val(Mid(S, Len(S) - I, 1)) * 2 ^ I NextF210 = KEnd FunctionFunction F810(S)K = 0For I = 0 To Len(S) - 1K = K + Val(Mid(S, Len(S) - I, 1)) * 8 ^ I NextF810 = KEnd FunctionFunction F1610(S)K = 0For I = 0 To Len(S) - 1x = Mid(S, Len(S) - I, 1)Select Case xCase "1" To "9"K = K + Val(x) * 16 ^ ICase "A" To "F"K = K + (Asc(x) - 55) * 16 ^ IEnd SelectNextF1610 = KEnd FunctionPrivate Sub Timer1_Timer()StatusBar1.Panels(2).Text = Date & " " & TimeEnd Sub总结：通过vb设计计算器使自己掌握select case的编写方法以既vb中部件的属性设置方法。
用VB做简易计算器
《VB》课内实验报告学生姓名:及学号：学院:班级: 数学101课程名称：VB实验题目:控件数组的应用指导教师姓名及职称：2012年03月28日目录一、实验目的 (1)二、实验内容 (1)三、实验要点及说明 (1)四、实现方法 (1)五、实验结果 (2)六、源程序清单 (2)七、思考及总结 (4)一、实验目的1．掌握动态数组与静态数组的使用方法。
2．掌握控件数组的添加、删除以及使用方法。
3．掌握If语句、Select Case语句以及循环语句的使用。
4．掌握控件数组中索引号（Index）的作用。
二、实验内容1．制作计算器，完成十进制的加减乘除运算。
2．随机产生15个不重复的A-Z（包括A，Z）的大写字母，存放在字符数组中。
三、实验要点及说明1．利用数组控件完成计算器的制作。
（1）设计界面及设置属性界面设计中的显示部分要求用标签实现；运算符、数字分别使用控件数组实现；（2）编写代码图3-1 设计界面程序代码的任务是单击数字按钮和运算符按钮实现十进制的常规运算，同时要求做到实现正负号的转变、结果的标准输出以及除法中除数的检查等功能。
2．界面设计部分要求能够体现出字符数组中的内容，且实现随机不重复显示的功能，具体参数不做要求。
四、实现方法运行环境：Visual Basic运行开发环境；1．VB6.0窗体的属性设置运用复制的方法建立两个建立控件数组，编写代码。
2. 设置窗体的属性，添加一个文本框MultiLine属性设置成True，编写代码。
五、实验结果1. 能够完成十进制的加减乘除运算，可以判断被除数是否为零，如果为零，弹出对话框提示错误。
2.单击窗体随机出现15个不同的字母。
六、源程序清单1、源程序：Option Explicit ‘对所有变量进行显式声明Dim Num1 As Single, Num2 As Single ‘声明Num1，Num2为单精度浮点型变量Dim Flag As Boolean ‘声明Flag为布尔变量Dim Cul As Integer ‘声明Cul为整型变量Private Sub Command1_Click(Index As Integer) ‘Command1的单击事件Num1 = Val(Text1.Text) ‘Text1中的值赋给Num1Flag = True ‘Flag为真Cul = IndexEnd SubPrivate Sub _Click() ‘Command4的单击事件If InStr(Text1.Text, ".") = 0 And Text1.Text <> "" Then ‘如果Text1中没Text1.Text = Text1.Text + "." 有"."并且不为空，就在Text1中加一个"."End IfEnd SubPrivate Sub Command2_Click(Index As Integer)If Flag Then Text1.Text = "": Flag = False ‘如果Flag为真则Text1赋为空Text1.Text = Text1.Text + Command2(Index).Caption ‘如果为假Text1加End Sub Command2(Index) Private Sub Command5_Click() ‘Command5的单击事件的单击事件Text1.Text = "" ‘清空Text1,Num1, Num2的值Num1 = 0Num2 = 0End SubPrivate Sub Command6_Click() ‘Command6的单击事件Dim result As Single ‘声明result为单精度浮点型变量Num2 = Val(Text1.Text) ‘Text1中的值赋给Num2Flag = True ‘Flag b变为真Select Case Cul ‘Select循环Case 0: result = Num1 + Num2Case 1: result = Num1 - Num2Case 2: result = Num1 * Num2Case 3:If Num2 <> 0 Then ‘若分母为零提示result = Num1 / Num2ElseMsgBox "出错！被0除！"End IfEnd SelectIf result \ 1 <> result Then ‘如果result \ 1不等于result那么在result前Text1.Text = Format(result, "0.#") 加”0.”赋给Text1.TextElseText1.Text = Str(result) ‘否则直接将result转化成字符串赋给Text1.TextEnd IfEnd SubPrivate Sub Command3_Click() ‘Command3的单击事件If Text1.Text <> "" Then ‘如果Text1.Text不是空的If InStr( Text1.Text, "-") = 0 Then ‘Text1.Text中不包含"-"Text1.Text = "-" + Text1.Text ‘把"-" Text1.Text连接后赋给Text1.Text ElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End If ‘取Text1.Text中长度减1的字符赋给Text1.Text End IfEnd Sub2、源程序Private Sub Form_Click() ‘Form的单击事件Dim s(1 To 15) As String * 1, c As String * 1 ‘声明s,c为定长字符串Dim Found As Boolean ‘声明Found为布尔变量s(1) = chr(Int(Rnd * 26 + 65)) ‘将一随机字符赋给s(1)n = 2Do While n <= 15 ‘循环条件n<=15c = chr(Int(Rnd * 26 + 65)) ‘将一随机字符赋给cFound = FalseFor j = 1 To n – 1 ‘For循环If s(j) = c Then Found = TrueNext jIf Not Found Then ‘Found为假，进行下两行语句s(n) = cn = n + 1End IfLoopFor i = 1 To 15 ‘循环输出s(i)到Text1.Text中Text1.Text = Text1.Text & s(i)Next iEnd Sub七、思考及总结。
《软件设计基础(VB)》简单科学计算器课程设计报告书
河北联合大学 《软件设计基础（VB）》课程设计报告设计名称： 姓 名： 专业班级： 学 院： 设计时间： 设计地点：简易科学计算器学 号：指导教师评语：成绩：指导教师签字： 年月日目录1.课程设计目的 ··············································································32.课程设计任务与要求 ·····································································33.课程设计说明书 ···········································································44.课程设计成果 ············································································205.程序调试过程 ············································································236.设计问题的不足和改进方案 ··························································237.课程设计心得 ············································································248.附录 ························································································249.参考文献24《软件设计基础（VB）》课程设计报告第 3 页，共 26 页1．课程设计目的 《软件设计基础（VB）》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖 VB 的知识点，又接近工程实际需 要。
VB简单计算器实验
在代码中针对每个过程都有简单注释；在代码的开头例如“'''operand ----------------------------操作数'''Calculation -------------------------计算”，这些都是帮助说明变量用途而写。
ElseIf LastInput = "负值" Then
'**************除法10
'*************求平方根10
'*************当前操作数的百分比10
'****************求倒数，用除法11
'*************等于11
一、程序功能和总体说明：
本程序使用VB语言编成，只使用了一个窗体模块，完成模仿市面简单计算器的功能。例如加减乘除，开方，求倒数，求百分比，并可连贯运算这些功能。
Case Asc(0) '48为字符零的Ascii值
Call Command0_Click
'Command0.Value = True‘与Call Command0_Click作用相同
Case Asc(0) To Asc(9) '49 To 57数字键1至9的Ascii值
Char = Chr(KeyAscii)
NumOperand = 1 '操作数个数置1
DecimalFlag = False
Time = 0
End Sub
'***************定义处理数字按钮通用过程
vb计算器实验报告
vb计算器实验报告《VB计算器实验报告》摘要：本实验报告通过使用VB（Visual Basic）编程语言，设计并实现了一个简单的计算器应用程序。
实验结果表明，该计算器能够实现基本的四则运算功能，并且具有良好的用户界面和操作体验。
本实验为学习VB编程语言的初学者提供了一个很好的实践机会，也为进一步深入学习和开发更复杂的应用程序奠定了基础。
1. 背景VB是一种由微软公司开发的基于对象的编程语言，它是一种易学易用的编程语言，适合初学者入门。
VB可以用于开发各种类型的应用程序，包括桌面应用程序、Web应用程序和移动应用程序等。
在本实验中，我们将使用VB编程语言设计并实现一个简单的计算器应用程序，以展示其基本功能和特点。
2. 实验目的通过本实验，我们旨在掌握VB编程语言的基本语法和功能，并且能够设计并实现一个简单的计算器应用程序。
同时，我们也将学习如何创建用户界面、处理用户输入和实现基本的数学运算功能。
3. 实验方法本实验使用Visual Studio作为开发环境，通过VB编程语言实现计算器应用程序的设计和开发。
在设计过程中，我们将考虑用户界面的布局和美观性，以及计算器功能的实现和操作流程。
在开发过程中，我们将使用VB的各种语法和功能，如变量、条件语句、循环语句和函数等，来实现计算器的基本功能。
4. 实验结果经过设计和开发，我们成功实现了一个简单的计算器应用程序。
该计算器具有清晰的用户界面和友好的操作体验，能够实现基本的加减乘除等四则运算功能。
用户可以通过点击按钮或者输入数字和运算符来进行计算，同时还可以实现清零和退格等功能。
整体而言，该计算器应用程序能够满足基本的计算需求，并且具有较好的稳定性和性能。
5. 结论通过本实验，我们不仅掌握了VB编程语言的基本语法和功能，还学会了如何设计和实现一个简单的计算器应用程序。
同时，我们也了解到了用户界面设计和用户体验的重要性，以及如何通过VB编程语言实现各种功能和操作。
vb简易科学计算器的设计与开发课程设计报告可视化编程武汉理工大学华夏学院
学号《可视化编程》课程设计报告简易科学计算器的设计与开发专业班级：计算机科学与技术1112学生姓名：指导教师：钱小红/李小艳教学系：信息工程系2012年6月15日课程设计报告书学生姓名：专业班级：计算机1111-1112班指导教师：钱小红/李小艳工作单位：华夏学院计算机教研室设计题目：简易科学计算器的设计与开发初始条件：1、完成可视化编程的学习2、带Visual Basic 的机器要求完成的主要任务：主要任务：（在规定的时间内完成下列任务）1、能够完成数值常数的四则运算，不要求支持运算符的优先级。
2、能够进行如下函数的求值运算，包括sin, cos, tan, exp, log, ln, sqr, 1/x，以及常数e和圆周率π。
3、设置5个存贮键，以便将中间运算结果存入，在需要的时候取出参与运算。
4、能够进行初始化，清除内存中的数，退出运算，清除显示。
5、因为控件数目较多，要求采用控件数组，以减少事件处理的复杂程度，使程序简洁高效。
6、出错处理:操作数如果不符合数学上的定义，应该给出错误信息。
例：0做除数，负数或0做真数等情况。
设计报告撰写格式要求：（课程设计报告按统一通用格式书写）具体内容如下：①设计任务与要求②总体方案与说明③程序主要模块的流程图④源程序清单与注释⑤问题分析与解决方案（包括调试记录、调试报告，即在调试过程中遇到的主要问题、解决方法及改进设想）；⑥小结与体会附录：①源程序（必须有简单注释）②使用说明③参考资料时间安排：6月15日---21日第一天布置题目，确定任务、查找相关资料第二天～第四天功能分析，编写程序，调试程序、运行系统；第五天程序验收、答辩；撰写设计报告。
指导教师签字：2012年6月15日系主任签字：年月日1.设计任务与要求1.设计任务利用VB语言设计一个简易的科学计算器，学会利用VB控件数组实现数值的计算以及基本函数的计算。
2.基本要求：（1）要能够完成数值常数的四则运算。
vb实验报告实验一
vb实验报告实验一
实验一：VB实验报告
实验目的：通过VB编程实现简单的计算器功能，加深对VB语言的理解和掌握。
实验内容：
1. 设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件，将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件，将点击的运算符保存下来。
4. 实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显
示在计算器界面上。
实验步骤：
1. 打开VB开发环境，创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面，包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码，实现数字按钮和运算符按钮的点击事件，将点击的数字或运
算符保存下来。
4. 编写VB代码，实现等号按钮的点击事件，根据保存的运算符进行相应的计算，并将结果显示在计算器界面上。
实验结果：
经过实验，成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字，点击运算符按钮选择运算符，点击等号按钮进行计算，最终得到正确
的计算结果。
实验总结：
通过本次实验，我进一步掌握了VB语言的编程技巧，对VB编程有了更深入的
理解。
通过实际操作，我对计算器功能的实现有了更清晰的认识，为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习，能够更加熟练地运用VB 语言，实现更多更复杂的功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一．设计思路 (1)二．关键问题的解决 (1)三．概要设计说明 (1)四．源代码 (1)五．心得体会 (8)一．设计思路1.要达到的目的要达到的目的主要是培养学生利用系统提供的基本控件进行创新性设计，理解Visual Basic 语言中面向对象的程序设计。
培养学生综合利用Visual Basic 语言进行程序设计的能力。
二．关键问题的解决先使用Command 命令按钮，命令按钮控件数组，文本框等基本控件设计窗体，再根据下面方法编制程序：三．概要设计说明本组设计的科学计算器具有科学型和标准型两种类型, 适合不同需要.科学型中包含弧度与角度的计算,同时兼具2,8,10,16 进制的运算.四．源代码Dim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim flag As DoubleDim operator As IntegerDim q As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase Is <= 9If Index = 0 And Val(Text1.Text) = 0 ThenText1.Text = 0ElseIf Val(Text1.Text) = 0 ThenText1.Text = IndexElseText1.Text = Text1.Text & IndexEnd IfEnd IfCase Is >= 20If (Val(Text1.Text) = 0) ThenText1.Text = Command1(Index).CaptionElseText1.Text = Text1.Text + Command1(Index).Caption End IfCase 10Text1.Text = Text1.Text + "."Case 11Text1.Text = -Val(Text1.Text)Case 12If Not flag Thennum1 = Val(Text1.Text)Text1.Text = 0flag = Trueoperator = 1End IfCase 13If Not flag Thennum1 = Val(Text1.Text)Text1.Text = 0flag = Trueoperator = 2End IfCase 14If Not flag Thennum1 = Val(Text1.Text)Text1.Text = 0flag = Trueoperator = 3End IfCase 15If Not flag Thennum1 = Val(Text1.Text)Text1.Text = 0flag = Trueoperator = 4End IfCase 16If Not flag Thennum1 = Val(Text1.Text)Text1.Text = 0flag = Trueoperator = 5End IfCase 17num1 = Val(Text1.Text)Text1.Text = Sqr(num1)Case 19Text1.Text = 0Case 18If flag ThenIf q = 2 Thennum1 = Val("&O" & Val(num1))num2 = Val("&O" & Val(Text1.Text)) Select Case operatorCase 1num3 = num1 + num2Case 2num3 = num1 - num2Case 3num3 = num1 * num2Case 4num3 = num1 / num2Case 5num3 = num1 Mod num2End Selectnum3 = Oct(Val(num3))Text1.Text = num3flag = FalseElseIf q = 4 Thennum1 = Val("&H" & num1)num2 = Val("&H" & Text1.Text) Select Case operatorCase 1num3 = num1 + num2Case 2num3 = num1 - num2Case 3num3 = num1 * num2Case 4num3 = num1 / num2Case 5num3 = num1 Mod num2 End SelectText1.Text = Hex(num3)flag = FalseElseIf q = 1 Thennum2 = Val(Text1.Text) Select Case operatorCase 1num3 = num1 + num2Case 2num3 = num1 - num2Case 3num3 = num1 * num2Case 4num3 = num1 / num2Case 5num3 = num1 Mod num2 End SelectText1.Text = num3flag = FalseElseIf q = 3 ThenDim a As StringDim b As IntegerDim i As IntegerDim t As Integera = Val(num1)b = 0For i = 1 To Len(a)t = Asc(Mid(a, i, 1)) - 48b = b * 2 + tNext inum1 = ba = Val(Text1.Text)b = 0For i = 1 To Len(a)t = Asc(Mid(a, i, 1)) - 48b = b * 2 + tNext inum2 = bSelect Case operatorCase 1num3 = num1 + num2Case 2num3 = num1 - num2Case 3num3 = num1 * num2Case 4num3 = num1 / num2Case 5num3 = num1 Mod num2End SelectDim j As IntegerDim w As IntegerDim k As Stringw = Val(num3)Doj = w Mod 2w = w \ 2k = j & kLoop While w > 0Text1.Text = kflag = FalseEnd IfEnd IfEnd SelectEnd SubPrivate Sub Form_Load()Text1.Text = 0Option3.Value = Trueflag = Falsenum1 = 0num2 = 0num3 = 0End SubPrivate Sub Option1_Click()Dim i As IntegerDim a As IntegerDim b As StringIf q = 2 Thena = Val("&O" & Val(Text1.Text))Doi = a Mod 2a = a \ 2b = i & bLoop While a > 0Text1.Text = bElseIf q = 1 Thena = Val(Text1.Text)Doi = a Mod 2a = a \ 2b = i & bLoop While a > 0Text1.Text = bElseIf q = 4 Thena = Val("&H" & Text1.Text)Doi = a Mod 2a = a \ 2b = i & bLoop While a > 0Text1.Text = bEnd IfFor i = 2 To 9Command1(i).Enabled = False Next iFor i = 20 To 25Command1(i).Enabled = False Next iq = 3End SubPrivate Sub Option2_Click()If q = 3 ThenDim a As StringDim b As IntegerDim i As IntegerDim t As Integera = Val(Text1.Text)b = 0For i = 1 To Len(a)t = Asc(Mid(a, i, 1)) - 48b = b * 2 + tNext iText1.Text = Oct(b)ElseIf q = 1 ThenText1.Text = Oct(Val(Text1.Text))ElseIf q = 4 ThenText1.Text = Oct(Val("&H" & Text1.Text)) End IfFor i = 2 To 7Command1(i).Enabled = TrueNext iCommand1(8).Enabled = FalseCommand1(9).Enabled = FalseFor i = 20 To 25Command1(i).Enabled = FalseNext iq = 2End SubPrivate Sub Option3_Click()If q = 2 ThenText1.Text = Val("&O" & Val(Text1.Text))ElseIf q = 3 ThenDim a As StringDim b As IntegerDim i As IntegerDim t As Integera = Val(Text1.Text)b = 0For i = 1 To Len(a)t = Asc(Mid(a, i, 1)) - 48b = b * 2 + tNext iText1.Text = bElseIf q = 4 ThenText1.Text = Val("&H" & Text1.Text)End IfFor i = 2 To 9Command1(i).Enabled = TrueNext iFor i = 20 To 25Command1(i).Enabled = FalseNext iq = 1End SubPrivate Sub Option4_Click()Dim a As StringDim b As IntegerDim i As IntegerDim t As IntegerIf q = 1 ThenText1.Text = Hex(Val(Text1.Text))ElseIf q = 2 Thena = Val("&0" & Val(Text1.Text))Text1.Text = Hex(a)ElseIf q = 3 Thena = Val(Text1.Text)b = 0For i = 1 To Len(a)t = Asc(Mid(a, i, 1)) - 48b = b * 2 + tNext iText1.Text = Hex(b)End IfFor i = 2 To 25Command1(i).Enabled = TrueNext iq = 4End Sub五．心得体会. 经过一个星期的上机实践学习, 使我对VB 有了更进一步的认识和了解,要想学好它要重在实践,要通过不断的上机操作才能更好地学习它,通过实践,我也发现我的好多不足之处,首先是自己在指法上还不行,经常按错字母,通过学习也有所改进;再有对VB 的一些标准库函数不太了解,还有对函数调用的正确使用不够熟悉,还有对VB 中经常出现的错误也不了解,同时在设计的过程中发现了自己的不足之处,对以前所学过的知识理解得不够深刻,掌握得不够牢固, 通过实践,使我在这几个方面的认识有所提高. 通过实践的学习,我认到学好计算机要重视实践操作,不仅仅是学习VB,还是其它的语言,以及其它的计算机方面的知识都要重在实践,所以后在学习过程中,我会更加注视实践操作,使自己便好地学好计算机。