实验二 VB 言基础及内部函数(4个学时).docVIP

实验二 VB 语言基础及内部函数（4个学时） 一 、实验目的 掌握不同数据类型合法表达式的构成。 掌握各种表达式的优先级别和运算。 掌握内部函数的使用 掌握数据的输入和输出地方法 二 、实验内容 1. 上机验证下表中个表达式的值，并将结果填入表中。 要求：先自行分析上表中表达式的值，再上机到“立即窗口”中验证，如果有错，请分析原因。 表达式 值 表达式 值 10\2.4 4.1座机电话号码66667 “EFG” ”efg” “ abc“ True 10/2.5 5 Not 5 4 And 5 4*2 True 8*3+2 Mod 3/2 24 6 3*2 Or 7 8 And 8 2*4 True 10 12+3 And True And 2 3 False Not 7 2*4 Or Not 5 2+3 And False True 8 5 Or Not 10 12+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）调试过程记录（错误情况及改正方法，不得少于三条） 3. 设计一个程序随机产生一个三位正整数显示在文本框中，然后在另一个文本框中逆序输出。 1 代码设计如下： Private Sub Command1_Click Dim x As Integer Randomize x Int 900 * Rnd + 100hy Text1.Text x End Sub Private Sub Command2_Click Text2.Text Mid Text1.Text, 3, 1 Mid Text1.Text, 2, 1 Mid Text1.Text, 1, 1 End Sub 2）运行结果（将运行后的界面截下来粘贴在下面） 调试过程记录（错误情况及改正方法） 4. 窗体的Click、DbClick、Load事件的使用，以及Print方法和相关属性的使用。 要求： 在属性窗口中将窗体设置成无最大化按钮和最小化按钮，并使标题栏显示“窗体”。 在窗体装入时，在窗体上显示一张图片，标题栏显示“显示图片”。 当用户单击窗体时，在标题栏显示“鼠标单击”，去除图片，并在窗体上显示“欢迎使用VB” 当用户双击窗体时，在标题栏显示“鼠标双击”，，并清除窗体上的字符串。 1）代码设计 Private Sub Form_DblClick 窗体.Caption 鼠标双击 窗体.Cls End Sub Private Sub Form_Load 窗体.Caption 显示图片 End Sub Private Sub Form_Click 窗体.Picture LoadPicture 窗体.Caption 鼠标单击 窗体.Print 欢迎使用VB End Sub 将窗体装入后和用户单击窗体后的运行效果界面分别截下粘贴到下面。 调试过程记录（错误情况及改正方法，不得少于三条 5．创建一个窗体，设计一个文本编辑器，实现文本的剪切、复制、粘贴和删除功能。（参考例4.5） 1 创建界面（将设计好的界面截下来粘贴在下面） 代码设计 Dim x Private Sub Command1_Click x Text1.SelText Text1.SelText Text1.SetFocus End Sub Private Sub Command2_Click x Text1.SelText Text1.SetFocus End Sub Private Sub Command3_Click Text2.Text x End Sub Private Sub Command4_Click Text1.Text Text2.Text End Sub Private Sub Form_Acti