实验报告VisualBasic程序设计基础

《实验报告VisualBasic程序设计基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、课程名称VisualBasic程序设计基础实验名称VisualBasic程序设计一、试验目的1．通过设计、运行简单的VB程序，了解VB界面中对象、属性、事件的基本概念。学会独立使用该系统完成VB程序从编辑、到运行、调试的全过程。2．掌握VB数据类型的基本概念。3．掌握变量、常量的定义规则和各种运算符的功能及表达式的构成和求值方法。4．了解VB标准函数，掌握部分常用标准函数的功能和用法。5.掌握常用内部控件的主要属性、方法和事件及在程序设计中如何应用控件。6．熟悉选择结构程序设计及循环结构程序设计，灵活运用有关语句解题。7.学会用数组解决实际问题。8.掌握通用过程的定义和调用

2、方法；了解参数传递的方式；灵活运用函数过程和子程序过程。9.掌握顺序文件和随机文件的使用方法。二、实验内容、实验方法及步骤项目一简单VisualBasic6.0程序设计(1)建立可视用户界面(2)设置可视界面属性对象属性设置值窗体NameForm1CaptionForm1单击按钮NameCommand1Caption“单击”清屏按钮NameCommand2Caption“清屏”结束按钮NameCommand3Caption“结束”文本框NameText1Caption空白(3)编写事件驱动代码PrivateSubCommand1_Click()Text1.Text="大家好

3、，我是于娇琴！"Text1.FontSize=20EndSubPrivateSubCommand2_Click()Text1.Text=""EndSubPrivateSubCommand3_Click()EndEndSub项目二设计一个计算器(1)建立可视用户界面(2)设置可视界面属性对象属性设置值窗体NameForm1Caption简易计算器=按钮NamecmdAnsCaption“=”计算函数按钮NamecmdFormCaption“计算函数↓”结束按钮NamecmdExitCaption“结束”文本框NameText1Caption空白文本框NameTex2Capti

4、on空白(3)编写事件驱动代码ConstPI#=3.1415926535PrivateSubcmdAbs_Click()Text3=Abs(Val(Text3))EndSubPrivateSubcmdAns_Click()DimsAsDoubleIfIsNumeric(Text1.Text)AndIsNumeric(Text2.Text)_AndNot((Combo1.Text="÷"OrCombo1.Text="Mod")AndVal(Text2)=0)Then'判断两个文本框中输入的都是数值,而且当除或取模时除数不为零时SelectCaseCombo1.TextCase

5、"＋"s=Val(Text1)+Val(Text2)Case"－"s=Val(Text1)-Val(Text2)Case"×"s=Val(Text1)*Val(Text2)Case"÷"s=Val(Text1)/Val(Text2)Case"Mod"s=Val(Text1)ModVal(Text2)EndSelectLabel1.Caption=Str(s)ElseLabel1.Caption="操作数错误，请重新输入！"IfNotIsNumeric(Text1.Text)ThenText1.SetFocusElseText2.SetFocusEndIfEndIfEndSu

6、bPrivateSubcmdCos_Click()Text3=Cos(Val(Text3)*PI/180)EndSubPrivateSubcmdExit_Click()EndEndSubPrivateSubcmdExp_Click()Text3=Exp(Val(Text3))EndSubPrivateSubcmdForm_Click()IfcmdForm.Caption="计算函数↓"ThenForm1.Height=4350cmdForm.Caption="四则运算↑"ElseForm1.Height=2000cmdForm.Caption="计算函数↓"EndIfEnd

7、SubPrivateSubcmdHex_Click()Text3=Hex(Val(Text3))EndSubPrivateSubcmdLog_Click()Text3=Log(Val(Text3))EndSubPrivateSubcmdOct_Click()Text3=Oct(Val(Text3))EndSubPrivateSubcmdRound_Click()Text3=Round(Val(Text3))EndSubPrivateSubcmdSin_Click()Text3=Sin(Val(Text3)*PI/1