1、RMXA09 txttype.BackColor = 652803BK28776RMXA18 txttype.BackColor = 16384 txttype.BackColor = 12632064 Case Else txttype.BackColor = 255Model Incorrect!End Select 2. Select Case Val(Text1.Text) Case 0 To 60 Label1.Caption = 不及格 Case 60 To 70及格 Case 70 To 80中 Case 80 To 90良 Case 90 To 100优秀输入错误End Sel
2、ect3. 常量声明 Const 常量名As 类型=表达式 例如:Const PI=3.14159 声明了常量PI,代表3.15159 Const MAX As Integer=&o144 声明了常量MAX,代表八进制书,整形 Const COUNTS=45.67 声明了常量COUNTS,代表45.67,双精度型4.系统常量 颜色类:vbGreen, vbRed, vbBlue vbNomarl-0 vbMinimized-1 vbMaximized-25.内部函数: abs(n) sqr(n) chr(n) asc(c) val(c) str(n) left right mid ltrim rtrim len time date now day year monthinputbox(c)ucase(a)6.文件操作 Kill 文件名6.逻辑运算 not andor 、xoreqv(等价)imp(蕴含)7.多分支结构 If then ElseIf then.Else 语句块n+1End If8.情况语句select case9.循环语句10 “当型”循环do while | Until11.“直到型” 循环 Do 语句1Exit Do语句2Loop while|Until 条件12. 循环嵌套13.过程:1415参数传递: