日期运算符与日期表达式
日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01# +30”的运算结果是“2003-10-1”；表达式“#2003/10/20# - #2003/10/10#”的运算结果为整数10 相关题解 单选题
1、设a=2, b=3,在VB中，表达式a>b Or b>3值是:( B ) A、False B、True C、-1 D、1
字符运算
字符串连接符为“+”和“&” “123” + “45” = “12345” “123” & “45” = “12345” 123 + “45” = 168 “123” + 45 = 168
运算符的执行顺序
在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。 算术运算符 > 字符串运算符 > 关系运算符 > 逻辑运算符
常用函数 数学函数
Abs(x) 求x 的绝对值，例：abs(-3.6) = 3.6 Sqr(x) 求 x 的平方根，例：sqr(100) = 10 Int(x)求≤x的最大整数
Rnd(x)产生[0，1)之间的随机数（不包括1）
字符串函数
Len(字符串) 求字符串的长度 ,例：Len(“hello”) = 5
Left(字符串，截取长度) 截取字符串左边部分,例:Left(“hello”,2) = “he” Mid(字符串，起始位置，截取长度) ,例：Mid(“hello”,2,2) = “el” 其他：
Right (字符串,长度)截取字符串右边部分。例: Right (“hello”,2) = “lo”
String(数值，字符)生成指定长度与指定字符的字符串，例：String(3,”9”) = ”999”
常用转换函数
Val(字符串) 将字符串转换为数值 Str(数值) 将数值转换为字符串
Tab定位函数的使用
用户交互函数
VB提供InputBox( )和MsgBox( )函数用于人机交互 InputBox( )其语法格式为：
InputBox( 提示[，标题][，默认值][,X坐标][，Y坐标]) MsgBox( ) 其语法格式为：
MsgBox(提示信息[，按钮][，标题] )
6----20
相关题解 单选题
1、Visual Basic中，下列( A )函数是求绝对值的。
A、ABS（X） B、SQR(X） C、INT（X） D、GN（X) 2、表达式Abs(-3.6)*sqr(100)的值是( C )。 A、-36 B、360 C、36 D、-360 3、下列( A )数据类型不是数值型。
A、Date B、Single C、Double D、Integer 4、下列函数中，返回值是字符串的是 ( A ). A、Mid B、Instr C、Val D、Len 5、下列( A )函数返回系统的当前时间。 A、time() B、date() C、day() D、year()
16、代数表达式2表达式后错误的是( D )
A、g*t*t/2 B、1/2*g*t^2 C、g*t^2/2 D、gt^2/2
2a?bgt27、数学式子4ab在VB中的正确写法是：（ ）
A、 (2*a+b)/4*a B 、(2*a+b)/(4ab) C 、(2a+b)(4ab) D 、(2*a+b)/(4*a*b) 8、判断x是否在区间[a, b]上，在VB中以哪个逻辑表达式是正确的?( C ) A 、a
1、向n变量存入1个2位整数，要使此2位数十位和个位上的值分别存入x, y变量。正确的算法是( D )。 选项:
A、①x=Left(n, 1) ②y=n-x*10 ③Print x:Print y
B、①x=Left(n, 1) ②y=Right(n, 1) ③Print x:Print y C、①x=n/10 ②y=n-x*10 ③Print x:Print y D、①x=Int(n/10) ②y=n-x*10 ③Print x:Print y
2、向x变量中输入任意一个小写字母，再将x变量中的小写字母转成大写字母。正确的算法是( A ). 选项:
A、①输人字母到x ②a=Asc(x)-32 ③x=chr(x) ④Print x B、①输人字母到x ②a=Asc(x)+32 ③x=chr(x) ④Print x C、①输人字母到x ②a=Val(x)一32 ③x=Chr(x) ④Print x D、①输人字母到x ②a=Val(x)+32 ③x=Chr(x) ④Print x 程序设计的顺序结构
顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。
例题：交换两个变量中的数据。 Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = Val(txtsx.Text) y = Val(txtsy.Text)
m = x: x = y: y = m '交换数据
7----20
txtdx.Text = Str(x) txtdy.Text = Str(y) End Sub
Private Sub cmdEnd_Click() End End Sub 相关题解 单选题
1、以下是一段VB程序： a = 1 b = a + 1 c = a + b
它的基本结构属于（ A ）
A、顺序结构 B、选择结构 C、循环结构 D、树型结构 2、下列VB程序运行后，变量x的值为( A ). x=2 Print x+l Print x+2
A、2 B、3 C、5 D、8
程序设计的分支结构
格式一：If条件Then语句
执行这种形式的If语句时，首先对条件进行判断。若条件成立，则执行Then后面的语句；若条件不成立，则执行If语句后继程序行的语句
格式二：If条件 Then 语句 1 Else 语句 2
例题：输入三个不相同的数，求出其中最小数。
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single Dim Min As Single
a = InputBox(\输入a\输入框\ b = InputBox(\输入b\输入框\ c = InputBox(\输入c\输入框\
If a < b Then Min = a Else Min = b If c < Min Then Min = c Print \最小数＝\End Sub
执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。
格式三：If 条件 Then 语句块 End If
例题：当从输入一个数时，当该数大于或等于60时显示\及格\，该数小于60时显示\不及格\。
Private Sub Command1_Click() Dim a As Single a = Val(Text1.Text) If a >= 60 Then
Label1.Caption = \及格\ End If
If a < 60 Then
8----20
Label1.Caption = \不及格\ End If End Sub
格式四：If 条件 Then 语句块1 Else 语句块2 End If
例题：编写程序，求函数Y的值（当x≤0时，y=3x+1；当x>0时，y=4x+1）。
Private Sub Form_Click() Dim x As Single Dim y As Single
x = Val(InputBox(\请输入变量x\If x <= 0 Then y = 3 * x + 1 Else
y = 4 * x + 1 End If
Print \End Sub 相关题解 单选题
1、以下是一段Visual Basic程序: If I=1 Then X=X+1 Else
X=X*2 End If
它的基本结构属于( A ).
A、选择结构B、循环结构C、顺序结构D、树型结构 2、下列程序段运行后，变量Value的值是（ A ） x = 20
If x >= 10 Then Value = 5 * x Else
Value = 4 * x End If
A、100 B、80 C、90 D、70 综合分析
1、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是( D )。
A、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值 B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值 C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值 D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值
2、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( AB Private Sub commandl_Click() Dim x As Integer
9----20
) x=Val(Text1. Text) If ____ = 0 Then
Labell.Caption=这个数是能被5整除的偶数 Else
Labell.Caption=这个数不是能被5整除的偶数 End If 选项：
A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 3、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好 的算法是( C )。
A、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值 B、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值 C、①输入的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值 D、①输入的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值
4、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是( D )。
A、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值 B、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值 C、①输入的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值 D、①输入的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值 5、下列程序段运行后,m的值为( A ) A=2: b=1: c=5
If A < b Then m = A Else m = b If c < m Then m = c 选项：
A、1 B、2 C、5 D、提示错误，无答案 程序设计的循环结构 一、For-Next循环
For循环变量一般形式是：
For循环变量=初值To终值Step循环变量增量 循环体 Nxt循环变量
例题1：求s＝1+2+3+4.....+100 Private Sub Form_Click() Dim i As Integer
Dim sum As Integer sum = 0 For i = 1 To 100
sum = sum + i ' 循环体 Next i
Print \End Sub
例题2：Step循环变量增量
Private Sub Form_Click() For j = 3 To 15 Step 2 Print j Next j End Sub
10----20