实验二VB语言础及内部函数.docVIP

实验二 VB 语言基础及内部函数（4个学时） 一 、实验目的 掌握不同数据类型合法表达式的构成。 掌握各种表达式的优先级别和运算。 掌握内部函数的使用 掌握数据的输入和输出地方法 二 、实验内容 1. 上机验证下表中个表达式的值，并将结果填入表中。 要求：先自行分析上表中表达式的值，再上机到“立即窗口”中验证，如果有错，请分析原因。 表达式 值 表达式 值 10\2.5 5 “EFG””efg” “ abc“ True 10/2.5 4 Not 5 = 4 And 54*2 True 8*3+2 Mod 3/2 24 63*2 Or 7 8 And 8 = 2*4 True 1012+3 And True And 23 False Not 72*4 Or Not 5 2+3 And False True 85 Or Not 1012+3 True # 10/11/2010# +30 2010-11-10 2. 设计一个程序进行选票统计，共有三位候选人(名字自拟)，如果同意某人，就单击一下某人的按钮，在其对应的文本框中显示已得的票数。 1）界面设计 （将设计好的界面截下来粘贴在下面） 2）代码设计 Private Sub Command1_Click() Static a As Integer a = a + 1 Text1.Text = a End Sub Private Sub Command2_Click() Static b As Integer b = b + 1 Text2.Text = b End Sub Private Sub Command3_Click() Static c As Integer c = c + 1 Text3.Text = c End Sub 3）调试过程记录（错误情况及改正方法，不得少于三条） 1. 把Static a As Integer 写在通用里了（报错：无效外部过程） 2.没写 Text1.Text=a 故在 Text 中没有显示投的票数 3.在Text1 中写代码：Show Print a 没有输出… 3. 设计一个程序随机产生一个三位正整数显示在文本框中，然后在另一个文本框中逆序输出。 Text1.Text = Int((999 - 100 + 1) * Rnd) + 100 Text2.Text = Mid(Text1.Text, 3, 1) Mid(Text1.Text, 2, 1) Mid(Text1.Text, 1, 1) 1) 代码设计如下： Private Sub Command1_Click() Randomize Text1.Text = Int((999 - 100 + 1) * Rnd) + 100 End Sub Private Sub Command2_Click() Randomize Text2.Text = Mid(Text1.Text, 3, 1) Mid(Text1.Text, 2, 1) Mid(Text1.Text, 1, 1) End Sub 2）运行结果（将运行后的界面截下来粘贴在下面） 调试过程记录（错误情况及改正方法） 产生随机数时未在代码里加Randomize，导致每次运行时产生相同的随机数序列 4. 窗体的Click、DbClick、Load事件的使用，以及Print方法和相关属性的使用。 要求： 在属性窗口中将窗体设置成无最大化按钮和最小化按钮，并使标题栏显示“窗体”。 在窗体装入时，在窗体上显示一张图片，标题栏显示“显示图片”。 当用户单击窗体时，在标题栏显示“鼠标单击”，去除图片，并在窗体上显示“欢迎使用VB” 当用户双击窗体时，在标题栏显示“鼠标双击”，，并清除窗体上的字符串。 1）代码设计 Private Sub Form_Click() Form1.Caption = 鼠标单击 Form1.Picture = LoadPicture() Form1.FontSize = 24 Form1.Print 欢迎使用VB6.0 End Sub Private Sub Form_DblClick() Form1.Caption = 鼠标双击 Form1.Cls End Sub Private Sub Form_Load() Form1.Caption = 显示图片 Form1.Picture = LoadPicture(C:\Documents and Settings\Administrator\桌面\104624701