【VB开源代码栏目提醒】：网学会员VB开源代码为您提供利用VB编写程序 - 综合课件参考，解决您在利用VB编写程序 - 综合课件学习中工作中的难题，参考学习。

    

初三年级信息技术教学资源二 第1页 ABC 利用VB编写程序，完成下列功能： 单击“出题”按钮后，在文本框中显示两个100以内的数，光标停留在结果文本框，要求输入运算结果；单击“确认”按钮，在结果文本框中显示两数的正确和，单击“结束”按钮，程序结束如图1-7。

     图1-1 ABC 在活动1中，我们已经建立了一个窗体和一个工程。

    打开已有工程“第一单元”，出现的界面出乎我们的意料，窗体“我的第一个程序”并没有出现图1-8。

     图1-2 工程资源管理器 如何打开已有的窗体？观察工程资源管理器窗口，目前的工程确实是我们已打开的“第一单元”，展开“窗体”列表单击“”，已有的窗体都罗列出来了！双击所需要的窗体初三年级信息技术教学资源二 第2页 文件，对应的窗体就会显示出来。

     同样，要添加或移除窗体，直接在这里操作也很方便。

     通过这个操作，也给了我们启示，一个工程可以包含多个窗体。

     打开“工程P”菜单，单击其中的“添加窗体F”命令，工程中增加了窗体“Form2”。

    注意观察工程资源管理器的变化。

    在窗体列表中多了Form2。

     在Form2中添加对象并进行属性设置。

    对象及属性列表如下：表1-1 Form2中对象属性列表 Form2 Caption ABC Label2 Caption Text1 Text 空 Command1 Caption 出题 Text2 Text 空 Command2 Caption 确认 Text2 Text 空 Command3 Caption 结束 Label1 Caption “结束”按钮的操作比较简单，在此不再赘述。

    ①随机出题 单击“出题”按钮，在文本框Text1和Text2中显示两个100以内的随机数，在Text3中显示空，也就是改变Text1、Text2和Text3的Text属性。

     要在程序中改变对象的属性，语句格式为： 对象. 属性属性值 双击“出题”按钮，进入代码段Private Sub Command1_Click。

     输入语句： Randomize Text1.Text Int100 Rnd Text2.Text Int100 Rnd Text3.Text 程序在运行过程中，按照语句的先后顺序执行。

     如果希望鼠标指针停留在Text3，则可以增加以下语句： Text3.SetFocus 知识链接 Randomize:初始化随机数生成器，相当于随机数开关。

     Rnd：VB函数，能产生一个01之间的随机小数。

     Intx：VB函数，返回不大于x的最大整数。

    如：int3.53；int-4.1-5 对象名.SetFocus：使对象获得焦点，如默认选中、光标停留等。

     初三年级信息技术教学资源二 第3页 ②计算结果 对“确认”按钮编程。

    有些同学认为，“确认”按钮要做的事情是将Text1和Text2的内容相加，因此程序段应为： Text3.Text Text1.Text Text2.Text 测试一下你的程序，我们发现，Text3中显示的内容不是前两个数的和，而是将这两个数按顺序连结图1-9。

     图1-3 AB 什么原因？在VB中默认，文本框的Text属性是字符串，当两个字符串进行“”操作时，得到的结果是将两个字符串连接。

     如何解决？想办法将字符串转化为数值。

     VB中数据具有兼容性，即数据在一定程度上可以实现自动转换。

    引入两个整数变量a和b，将Text1中的信息存入a，实现字符串向数值的转换，将Text2中的信息存入b，转换为数值，再来求ab，就能得到准确解了。

     代码： Dim a As Integer Dim b As Integer a Text1.Text b Text2.Text Text3.Text a b或者调用Val函数实现类型转换。

    只需一个语句就可完成程序： Text3.Text ValText1.Text ValText2.Text ①Dim a As Integer VB有两种变量：属性变量和系统变量，属性变量依附于对象，存储对象的相关信息，在添加对象后自动产生，不需要进行定义。

    系统变量属于用户自定义的变量，可以表示VB初三年级信息技术教学资源二 第4页 中的所有数据，由于数据有各种不同的类型，为了让系统变量能正确地描述和记录信息，在使用系统变量前我们需要对它的类型进行说明定义。

     在VB执行应用程序期间，可用系统变量来存储临时信息，但系统变量在使用前要事先通知应用程序。

    在VB程序中，使用变量与在高级饭店中占一张桌子有点相似。

    当然，你什么时候到饭店去都可以，但饭店管理人员更乐意于事先预定座位。

     通常用Dim来进行变量的声明定义，定义变量的语法： Dim 【变量名】As 【数据类型】 如：Dim a As Integer 定义了一个整型变量a。

     在VB中常用的数据类型有整型、实型和字符型等。

     整型Integer，表示-32768至32767之间的整数；也可以用代替。

    如：Dim a 等价于 Dim age As Integer，定义了一个整型变量age。

     实型Single，表示-3.37E38至3.37E38之间的实数；也可以用！代替。

    如：Dim b 等价于 Dim weight As Single，定义了一个实型变量weight。

     字符型String，可以储存0～65535个字符，用括起来的一系列合法字符或汉字则称为字符串常量，如This is my first program 可以在一行中定义多个变量，如：Dim x As Integer Dim y As Single 定义了一个整型变量x和一个实型变量y。

     在VB中不允许一次定义多个变量，如Dim abc As Integer ，系统只接受c的定义，a和b的定义无效。

     另外，希望大家记住，变量的定义还可以在事件过程的首部，对于初学者而言，为了避免不必要的麻烦，建议大家一律定义在整个代码窗口首部，即通用声明部分图1-10。

     图1-4 变量声明的位置 如果不定义变量又会怎么样呢？在VB中，以第一次的赋值类型为准。

    对于变量的赋值，我们在活动四中进行详细介绍。

     ②a Text1.Text 利用变量获取对象的属性，可以通过“”号实现信息的传递，语句格式为： 变量 对象.属性 在传递过程中，自动实现类型转换。

     例如，要获取文本框Text1的Text属性，语句可为：aText1.Text。

    最终变量a的值与它自身的类型一致。

    如文本框Text1中显示的内容为56，则Text1.Text实际值为字符串56，而a定义为实型，则通过信息传递，最终变量a中的值为实数56。

     初三年级信息技术教学资源二 第5页 同样，语句bText2.Text则是将文本框Text2的内容取出存入变量b。

     ③ValText1.Text Val函数返回包含于字符串内的数字，简而言之，就是将字符串转换为数值。

     函数格式为：ValString Val函数的功能如下所示： Val 53.4 53.4 Val354a 354 Valx45 0 因此，ValText1.Text可以获取文本框Text1的Text属性值并转换为数值类型。

     ①调试运行 由于当前的工程中含有两个窗体Form2与Form1活动一，而工程在启动时默认运行Form1，因此需要进行启动窗体的设置。

     打开“工程P”菜单，单击其中的“工程1 属性E??”命令，弹出“工程属性”对话框，单击“通用”选项卡，将“启动对象S”设置为“Form2”，Form2就能正常运行了图1-11。

    如果工程还有其他窗体，可通过类似的方法设置启动窗体。

     图1- 5 “工程属性”对话框 ②保存文件 由于工程“第一单元.vbp”已经存在，所以只需保存窗体Form2即可。

     ③程序代码： Private Sub Command1_Click Text1.Text Int100 Rnd 初三年级信息技术教学资源二 第6页 Text2.Text Int100 Rnd Text3.Text Text3.SetFocus End Sub Private Sub Command2_Click Dim a As Integer Dim b As Integer a Text1.Text b Text2.Text Text3.Text a b End Sub Private Sub Command3_Click End End Sub 实战成果 这这样样的的程程序序对对小小学学生生学学数数学学很很有有用用哦哦！！ 知识链接对普通的整数和实数而言，常用的运算符有：加、-减、乘、/除、整除、Mod求余数、乘方和括号。

    括号的优先级最大。

     VVBB

上一篇：vb教材
下一篇：关于大学英语教学