VB基本知识学习,VB概述,面向对象程序设计方法 对象、对象属性、对象方法 事件驱动的编程机制 VB的三种工作状态设计、运行、中断,相关练习： P14 一、1 6,VB语言基础,标识符的命名规则 字母、数字、下划线组成 以字母开头 不能与VB标准关键字相同 最长255字符,VB语言基础,书写规则 语句合并 ： 语句注释 rem 单引号 语句续行 _,VB语言基础,VB的数据类型 数值型 整数数据：整型（integer)、长整型(long) 小数数据：单精度（single) 双精度（double) 字符型（string) 布尔型（boolean) 变体型 （Variant),VB语言基础,下面可作为Visual Basic的变量名的是（ ）。 A）2a B）x&2 C）Option D）If 以下合法的Visual Basic标识符是 A) ForLoop B) Const C) 9abc D) a#x,VB语言基础,常量 一般常量：数值常量、字符常量、逻辑常量（boolean）、日期型常量 符号常量 定义形式,语法：public|private const 常量名 as 数据类型=表达式 注意：常量值在程序中不允许修改,VB语言基础,变量 定义形式,语法：Dim 变量名as 数据类型，变量名as 数据类型 各种定义范例 dim a1 as integer dim a as boolean, b as integer dim a2 as string,VB语言基础,变量 赋值,语法： 变量名=表达式 各种定义范例 dim a as string dim b as integer a=“hello” b=1,VB语言基础,运算符和表达式 算术运算符 关系运算符 连接运算符 逻辑运算符 内部函数(p27),+ - * / mod, = = ,+ &,and or not,VB语言基础,随机函数,Randomize:重置随机数生成器 Rnd（）产生01之间的随机数 产生某个范围内的随机数 int(上限-下限+1）*rnd)+下限 产生1-50之间的随机数 Randomize Dim a As Integer a = Int(50 - 1 + 1) * Rnd) + 1,VB语言基础,InputBox、MsgBox Print,注意InputBox Msgbox的格式 注意Print能够在窗体或者PictureBox上输入 结果,VB基本控制结构,VB的基本控制结构 顺序结构、分支结构、循环结构 顺序控制结构,VB基本控制结构,分支结构 If thenelse,If 条件 then 执行语句,Dim a as integer A=3 If a5 then print a,VB基本控制结构,分支结构 If thenelse,If 条件 then 执行语句 Else 执行语句 End if,如果答案为1则提示正确， 否则错误 If t1.text=“1” then print “正确” Else print “错误” End if,Textbox:t1,VB基本控制结构,分支结构 If thenelse,If 条件1 then 执行语句 Elseif 条件2 then 执行语句 Else 执行语句 End if,Dim a as integer A=val(text1.text) If a50 then print “偏大” Elseif a10 then print “偏小” Else print “适中” End if,VB基本控制结构,分支结构 Select case结构,值的形式 1、常数 2、连续范围 1 to 100 3、满足条件 a0，注意 用Is0表示 4、组合形式，逗号分隔 -10，1 to 100,Select case 变量|表达式 case 值1 语句 Case 值2 语句 Case else 语句 End select,VB基本控制结构,分支结构 Select case结构,Select case 变量|表达式 case 值1 语句 Case 值2 语句 Case else 语句 End select,Dim a as integer A=val(text1.text) Select Case a Case Is 50 Print “偏大“ Case Is 30 Print “偏小“ Case Else Print “适中“ End Select,VB基本控制结构,循环结构 DoLoop结构,Do while|until 条件A 语句块B exit do Loop,VB基本控制结构,循环结构 DoLoop结构,Do 语句块 exit do Loop while|until 条件,VB基本控制结构,循环结构 Fornext循环,For 计数器=初始值 to 终值 step 步长 语句块 exit for next 计数器,VB基本控制结构,循环结构 Doloop结构的说明 条件可以是关系、逻辑表达式或者是常量 条件为1是表示恒真，循环会不停执行 条件为0时，对于当型循环，不执行任何语句，对于直到型循环，则执行一次循环体内语句 遇到exit do退出循环体,VB基本控制结构,循环结构 for结构的说明 注意执行步骤,Dim a as integer,sum as integer For a=1 to 5 sum=sum+a Next a,VB基本控制结构,在窗体上画一个名称为Command1的命令按钮， 然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(“Input“) Select Case x Case 1,3 Print “分支 1“ Case Is 4 Print “分支 2“ Case Else Print “Else 分支 “ End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是 A） 分支1 B） 分支2 C） Else分支 D) 程序出错,VB基本控制结构,数组,一维数组的定义 二维数组的定义,dim 数组名(第1维上下界) as 数据类型,dim 数组名(第1维上下界，第2维上下界) as 数据类型,数组,定义存放10个整数的一维数组 Dim a(9) as integer Dim a(1 to 10) as integer Dim total as integer Total=9 Dim a(total) as integer,定义一个2行3列的二维整型数组 Dim a(1 to 2,1 to 3) as integer Dim a(1,2) as integer,数组,数组的赋值,Dim a(1 to 5) as integer Dim j as integer For j=1 to 5 a(j)=j next,Dim a(1 to 2,1 to 3) as integer Dim m as integer,n as integer For m=1 to 2 for n=1 to 3 a(m,n)=n next n Next m,数组,数组的元素个数,数组个数计算： （上界1-下界1+1）* （上界2-下界2+1）,相关练习： P75页 例3-2 P78页 二、6,数组,label控件，名字 LabeL1,Picturebox控件，名字picture1,数组,Dim a(1 To 10) As Integer Picture1.Cls For i = 1 To 10 a(i) = Int(Rnd * 50) + 10 Picture1.Print a(i); Next i Max = a(1): pos = 1 For i = 2 To 10 If a(i) Max Then Max = a(i) pos = i End If Next i Label1.Caption = “最大数是：“ & Max & “它的位置在“ & pos,控件,窗体： 什么是窗体(p81） 常用属性: Caption:标题 相关事件和方法 Load事件（注意事件名） Click事件 Show hide move,控件,标签 常用属性：Caption:标题 文本框 常用属性：text:文本框内容 焦点（p90) 选项按钮和复选框 属性：value,控件,列表和组合 图像与图片 定时器 滚动条 菜单（p125),