VB数据类型与简单运用

1、VB数据类型与简单运用 实验目的了解VB数据类型、常量、变量、运算、函数、表达式的基本概念。2）初步进行VB数值运算处理。实验题目1）通过程序界面了解VB数据类型。设计一个窗体，有4个标签，1个组合框，3个文本框。运行时组合框中选择不同的变量类型，文本框显示 相应的初值、类型符、字节数。运行界面如图实验三01图实验三012）输入任意3个数，选出最大、最小两数。设计一个窗体，有1个命令按钮，3个标签，3个文本框。运行时，单击命令按钮出现inputbox（）输入框。只能 输3个数，3个数后，重新开始。输第1个数时最大等于最小，以后自动区分开。运行界面如图实验三02.图实验三02实验背景及准备1）初

2、步学习了 VB编程基础，包括数据类型、常量、变量、运算符、函数、表达式等。2）初步学习了逻辑运算符、逻辑表达式。3）预习组合框控件预习if endif条件语句，select endselect情况选择语句。 实验过程与主要步骤1)题目一：进入VB,窗体上放置相应控件，给出窗体、标签的标题。组合框控件的作用是下拉显示一列可供选择的列表项, 中选中某一项单击时，激发click事件。因此，第一步，在组合框LIST属性中手工填入各种变量类型名称，如图实 验三03所示；第二步，编写Click事件过程。IKConbol ComboBox |按字母序|按分类序DataSource人Dragicon(None

3、)DragMode0 - ManualEnabledTrueF ont宋体ForeColor &H800000Height300HelpContextIOIMEMode0 - No OpeiIndexjlntegralMei g TrueHltemData(List)|Left360二J1 Llst(List)iLockedbyteAMouseiconboolean integerJList返回/设置控封 含的项。long single doublecurrencyV图实验三03编写Click事件过程首先需要知道所选中的是哪一项，组合框Listindex记录了被选项的序号，所以可根据 List

4、index的值再作相应处理。因为可选项有11项之多，故比拟恰当地使用了 Select Endselect情况语句，而不 是一般的If Endif条件语句。题目1的程序代码如下：Option Explicit使得所有变量必须先定义，再使用。Private Sub Combol_Click()Dim qk As Integerqk = Combo 1.Listindex + 1组合框的listindex属性返回当前所选工程的序号(从0开始)。Select Case qk选择语句Dim xl As ByteText 1.Text = xlTcxt2.Tcxt = nnText3.Text = 1Di

5、m x2 As BooleanTex tl.Text = x2Text2.Text =Tex t3 .Text = 2Dim x3 As IntegerText 1.Text = x3Text2.Text =”Text3.Text = 2Dim x4 As LongTextl.Text = x4Text2.Text = n&nText3.Text = 4Dim x5 As SingleTextl.Text = x5Text2.Text=n!HText3.Text = 4Dim x6 As DoubleTextl.Text = x6Text2.Text 廿Text3.Text = 8Dim x7

6、 As CurrencyTextl.Text = x7Text2.Text=nnText3.Text = 8Dim x8 As DateTextl.Text = x8Textl.Text =nnText3.Text = 8Dim x9 As StringTextl.Text = x9Textl.Text = n$nText3.Text= 可变”Dim xlO As Object对象变量定义后必须用set语句设置初值。此处初值无意义。Set x 10 = LoadPicturc(nG:vb 教材syO3syO3tOl.jpg)Textl.Text = xlOText2.Text =”Tex t3

7、 .Text = 4Case ElseDim xl 1 As VariantText!.Text = xl 1 Text2.Text = ,H, Text3.Text =可变 End Select End Sub2)题目二进入VB,窗体上放置相应控件，修改窗体与控件的标题。最大值、最小值文本框的初始值为“二在命令 按钮中使用Inputbox ()输入框函数进行数据输入，因为要限定输入三个数，所以用一个全局变量N来计数， N初值为每输入一个数，N自动加L。当N=3后，重置N=0.。数值的大小比拟用、或v来进行，结果为逻辑值真(True-1)或假(False。)。If Endif条件语句用来作不

8、同处理，由此，产生了分支程序。题目二的程序代码如下：Option ExplicitPublic n As Integern 为全局变量Private x As Doublex 为私有变量Private Sub Command 1 _Click()If n = 0 Then，初始化Textl.Text=,n,Text2.Text =”Text3.Text=nnEnd Ifn = n + 1彳盾环3次x = InputBox。请输入第” & Str(n) & 个数)做字符串连接Text 1.Text = Textl.Text & x & Space(2)If n = 1 Then，只有一个数时Te

9、xt2.Text = xTex t3 .Text = xEnd IfIf n = 2 Then，有两个数时If x Text2.Text ThenText3.Text = Text2.TextText2.Text = xElseText3.Text = xEnd IfEnd IfIf n = 3 Then有三个数时If x Text2.Text ThenTcxt2.Tcxt = xElseIf x Text3.Text ThenTex t3 .Text = xEnd IfEnd Ifn = 0End IfEnd SubPrivate Sub Form_Load() n = 0End Sub重新开始重新开始为变量n赋初值 实验小结1）初