高中信息技术《算法与程序设计VB（选修）》知识要点

运算符

1、  算术运算：

+ 加   -- 减   *乘

^ 指数 例：2^2 = 4

/  （浮点）除 例：5 / 2 = 2.5

\   整除  例： 5 \ 2 = 2

Mod 求余数 例：5 Mod 2 = 1

相关题解

单选题

1、分析下列程序:

Private Sub Form_Click()

s=11\3 + 11 Mod 3

Print s

End Sub

当单击窗体时s的值是(  A  ).

A、5   B、6   C、4    D、3

关系运算

=赋值、<小于号

<>不等于>大于号

>=大于等于号<=小于等于号

注意：关系表达式的运算结果为布尔值True 或 False

例：3 > 2 结果为 True(真或是)

相关题解

单选题

1、下面表达式的值是false的有(  C  ).

A、"969" < "n97"    B、Int(4.99) <> len("basic")   C、str(2000) < "1997"D、3 > 2

逻辑运算

Not（取反）And（与） Or（或）

运算结果为布尔型（Boolean）True 或 False

逻辑运算符的优先级为：No > And > Or

1、下列逻辑表达式的值为“假”的是（A）。

A、2 + 4 > 8   B、3 + 12 = 15   C、5 > 0 And 4 > 3   D、10 / 5 <3

2、下列逻辑表达式的值为“假”的是（D）。

A、3 + 5 > 7  B、8 / 4 < 4  C、5 > 3 And 3 > 2    D、4 + 11 > 20

3、已知A，B，C，D 是简单变量，且都已有互不相同的值，执行语句A=C: D=B 后，下列

关系表达式逻辑值为“真”的是（A）。

A、C=A   B、A=B    C、D=C     D、B=C

日期运算符与日期表达式

日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#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的字符串运算符是“&”，该运算符主要用于连接两个或更多的字符串。如："abcd" &

"efg"  连接后的运算结果为："abcdefg"。那么，"1+2" & "3"的运算结果为：（C）。

A、33  B、6   C、"1+23"    D、True

运算符的执行顺序

在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。

算术运算符 > 字符串运算符 >  关系运算符 >  逻辑运算符

相关题解

单选题

在VB语言中，表示“a大于0且b小于12”的正确表达式是（D）。

A、b<12 or a > 0

B、b > 12 And a < 0

C、a > 12 Or a < 0

D、a > 0 And b < 12

常用函数

数学函数

Abs(x) 求x 的绝对值，例：abs(-3.6) = 3.6

Sqr(x) 求 x 的平方根，例：sqr(100) = 10

Int(x)求≤x的最大整数  例：int(3.6) = 3   int(--3.6) = --4

Rnd(x)产生[0，1)之间的随机数（不包括1）

Sin(x)

Cos(x)

Tan(x)

Atn(x)

Exp(x)

Log(x)

使用三角函数时，参数应是弧度，如数学中sin30⁰应写为：sin(30*3.14159/180)

字符串函数

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”

函数mid (C,N1,N2)的作用是从字符串C中N1位开始取出长度为N2 的子串。那么，

Mid ("aBcDeFg", 3, 3)的值为（D）。

A、aBc  B、cde   C、eFg   D、cDe

常用转换函数

Val(字符串) 将字符串转换为数值

Str(数值) 将数值转换为字符串

Chr(字符代码)

Asc(字符)

Tab定位函数的使用

例题

Private Sub Form_Click()

Dim a  As Integer

Dim b  As Integer

a = 4: b = 9

Print Tab(1); "数"; Tab(9); "平方"; Tab(18); "立方"; Tab(27); "平方根"

Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a)

Print Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)

End Sub

用户交互函数

VB提供InputBox( )和MsgBox( )函数用于人机交互

InputBox( )其语法格式为：

InputBox( 提示[，标题][，默认值][,X坐标][，Y坐标])

MsgBox( ) 其语法格式为：

MsgBox(提示信息[，按钮][，标题] )

相关题解

单选题

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()

6、代数表达式 表达式后错误的是(  D  )

A、g*t*t/2        B、1/2*g*t^2        C、g*t^2/2        D、gt^2/2

7、数学式子 在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<x  and  x<=b   B、 a<x<=b   C、a<x and x≤b   D 、a>x and x<=b

综合分析

1、向n变量存入1个2位整数，要使此2位数十位和个位上的值分别存入x, y变量。正确的算法是(  D   )。

选项:

x、①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

（三）算法与问题解决

1、解析法

2、穷举法

3、递归法

综合分析

1、有5人，问第5人年龄，说比前面第4人小3岁，问第4. 3. 2人，都说比前面人小3岁，问第1人，说他的年龄为38岁。问第5人的年龄多大。用递归法解决此问题的正确步骤是(  B  )。

选项:

A、①定义age (n)函数 ②函数中当n>1时返回函数值为age (n-1)当n=1返回函数值为38

B、①定义age (n)函数 ②函数中当n>1时返回函数值为age (n-1)-3当n=1返回函数值为38

C、①定义age (n)函数 ②函数中不断地调用age (n-1)-3

D、①定义age (n)函数 ②函数中不断地调用age (n)函数自己

4、排序与查找数据

四、应用程序设计

1、程序设计的一般步骤

2、 简单程序设计

综合分析

1、a,b,c三变量存放不同的数，值a 最大，b 第二，比较好的算法是（   ）

A、①定义一个max(x,y)函数（值为 x,y 中的大值）② a = max(max(a,b),c)

B、①如a < b就a = b  ②如 a < c 就 a = c  l如 b <c 就 b = c

C、①如a > b就a = b  ②如 a > c 就 a = c  l如 b >c 就 b = c

D、①如a < b就两变量交换  ②如 a < c 就两变量交换   l如 b <c 就两变量交换

2、求2! +3! +4! +5!……+10!的值。能完成此运算，并且比较好的算法是( A  )。

选项:

A、①定义求阶乘的函数用j c(n) ②主程序中用一个循环9次调用j c(n)函数进行累加

B、用一个程序完成:每一项阶乘用一个For/Next循环完成，整个程序包括9个循环

C、用解析法:s=1*2+1*2*3+1*2*3*4+…+1*2*3*4*5*6*7*8*9*10

D、不必定义函数，只要用一个单重循环就能完成

3、要求打印 100 至 200之间所有偶数的平方根（ C  ）

A、① i = 100  ② Do While i < 200:Print i,Sqr(i):loop

B、① i = 100  ② Do While i < 200:Print i,Sqr(i):i = i + 1:loop

C、① For i = 100 to 200 step 2:Print i,Sqr(i) : Next i

D、① For i = 100 to 200:Print i,Sqr(i):Next i

编程题

必修1_15、编写程序，使能打印下面所示的图案。

*

**

***

**

*

程序：

Private Sub Form Click()

Dim i As Integer '定义i为整型变量

Dim j As Integer '定义j为整型变量

For i = -3 To 3

Print Tab(Abs(i)+5)

For j=1 To (4-Abs(i))-1

Print "*";

Next j

Print   '换行

Next i

End Sub

必修2_15、编写程序，使能打印下面所示的图案。

*

***

*****

***

*

程序：

Private Sub Form Click()

Dim i As Integer '定义i为整型变量

Dim j As Integer '定义j为整型变量

For i = -3 To 3

Print Tab(Abs(i)+5);

For j=1 To 2*(3-Abs(i))-1

Print "*";

Next j

Print   '换行

Next i

End Sub

必修3_15、编写程序，使能打印下面所示的图案。

@

@@

@@@

@@@@

@@@@@

@@@@@@

程序：

Private Sub Form_Click()

Dim i As Integer

Dim j As Integer

For i = 1 To 6

Print Tab(10);

For j = 1 To i

Print “@”;

Next j

Print

Next i

End Sub

必修4_15、完善显示按钮的click程序，将代码段中“变量1“、“变量2.“变量

3、处换成正确的变量名，使当单击该按钮时，Labell. Label2分别

显示30、10,

完成所有操作后，诸按“Ctrl+S”保存。

Private Sub Command_Click(  )

x = 10

y = 30

If x < y Then

t = x

x = y

y = t

End If

Label1.Caption = x

Label2.Caption = y

End Sub

必修5_15、完善"判断"按钮的click程序，使当从Textl中输入一个数时，当该数

大于或等于60时在Lebell中显示"及格"，该数小于60时在Labell中显

示"不及格"。

完成所有操作后，诸按“Ctrl+S”保存。

Private Sub Command1_Click( )

Dim a As Single

a = Val(Text1.Text)

If a>=60 Then

Label1.Caption = “及格”

End If

If a < 60 Then

Label1.Caption = “不及格”

End If

End Sub

必修1_16、编写程序，求函数y的值(当x<=0时,y=3x+1;当x>0时，y=4x+1)。

程序：

Private Sub Form Click()

Dim x As Single '定义x为单精度型变量

Dim y As Single '定义y为单精度型变量

x = Val(InputBox("请输入变量x"))

If x <=0 Then

y = 3 * x + 1

Else

y = 4 * x + 1

End If

Print "y=";y

End Sub

必修2_16、编写程序，求y=6x-5的值。(x的值在程序中调用InputBox函数，在

弹出的标准输入对话框中输入)

程序：

Private Sub Form_Click()

Dim x As Single

Dim y As Single

x = Val(InputBox(“请输入变量x”))

y = 6*x – 5

Print “y=”;

End Sub

必修3_16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多

吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最

初共有多少个桃子。

完成所有操作后，诸按“Ctrl+S”保存。

程序：

Private Sub Form_Click()

Dim i As Integer

Dim s As Integer

s = 1

For i =1 To  9

s = (s + 1)*2

Next

Print “s=”;s

End Sub

必修4_16、完善按钮“计算7!”的Click事件程序，当单击命令按钮时Text1显示7!的值。

Private Sub Command1_Click(  )

Dim a As Integer

Dim i As Integer

a = 1

For i = 1 To 7

a = a * i

Next i

Text1.Text = a

End Sub

必修5_16、请将按钮"计算1+2+……+100"的Click事件程序中的"常量"和"变量"换成

正确的常量和变量，当单击命令按钮时Text1显示1+2+"""+100的

值。

完成所有操作后，诸按“Ctrl+S”保存。

Private Sub Command1_Click(  )

Dim a As Integer

Dim I As Integer

a = 0

For i = 1 To 100

a = a + i

Next i

Text1.Text = a

必修4_18、编写程序，当在Textl中输入x的值后，单击计算按钮，求 y = |3x - 5|的值。

Private Sub Command1_Click(  )

Dim x As Single

Dim y As Single

x = Text1.Text

y = Abs(3*x-5)

Text2.Text = y

End Sub

必修5_18、在打开的窗体Forml中，在窗体中增加一个文本框Text3,在完整按

钮中的程序，使当单击"计算"按钮时，计算b*b一4ec的值，并在Text3

中显示出来。

Private Sub Command1_Click(  )

Dim b As Single

Dim c As Single

Dim x As Single

b = Text1.Text

c = Text2.Text

x = b * b – 4 * c

Text3.Text = x

End Sub

必修1_17、编程计算 s=1-2+3-4+5-……+99-100

程序：

Private Sub Form Click()

Dim s As Integer '定义变量s为整型变量

Dim i As Integer '定义循环变量

s = 0

For i=1 To 100

if int(i/2) <> i/2 Then

s = s + i

Else

s = s - i

End

Next i

Print "s=";s

End Sub

必修2_17、编写程序，求I+2+…+n>=500中最小的n

程序：

Private Sub Form_Click( )

Dim s As Integer

Dim n As Integer

s = 0

n = 0

Do

n = n + 1

s = s + n

Loop Until s > 500

Print “n=”;n

End Sub

必修3_17、编程计算s = 1*2+2*3+3*4+……+n*(n+1)的值，其中n =10

Private Sub Form_Click()

Dim s As Single

Dim i As Integer

s = 0

For i = 1 To 10

s = s + i * (i +1);

Next i

Print “s=”;s

End Sub

必修1_18、编程求:鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只?

程序：

Private Sub Form Click()

Dim Ji As Integer '鸡

Dim Tu As Integer '兔

Dim Leg  As Integer '腿数

Dim Head  As Integer '头数

For Ji=1 To 50

For Tu=1 To 25

Leg = Ji*2 + Tu*4  '计算腿

Head= Ji + Tu  '计算头

If Leg = 100 And Head = 40 Then

Print "鸡=";Ji;"只", "兔=";Tu;"只"

End If

Next Tu

Next Ji

End Sub

必修2_18、编写递归函数求5!的值。

Public Function s(n As Integer) As Long

If n = 1 Then

s = 1

Else

s=n * s(n-1)

End If

End Function

Private Sub Form_Click()

Print “s(5)=”;s(5)

End Sub

必修3_18、编写递归函数求10!的值。

Public Function s(n As Integer) As Long

If n = 1 Then

s = 1

Else

s=n * s(n-1)

End If

End Function

Private Sub Form_Click()

Print “s(10)=”;s(10)

End Sub