江苏省高中信息技术算法与程序设计VB（选修）

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 '交换数据 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语句

行If是指在一行中写完的If语句。其一般格式为：

格式一：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。

第 9 页 共 20 页

块If语句

上述If-then语句只能根据条件的真假是否执行一条语句，当Then部分和Else部分包含的内容较多时，则可选用“块If语句”结构。

格式三：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

Label1.Caption = \不及格\ End If End Sub

格式四：If 条件 Then 语句块1 Else

语句块2 End If

例题：编写程序，求函数Y的值（当x≤0时，y=3x+1；当x>0时，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、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是( B D )。

第 10 页 共 20 页

y=4x+1）。

选项:

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 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、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好 的算法是( AC )。 选项:

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、下列程序段运行后,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

第 11 页 共 20 页

Next j End Sub

循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1 1、 循环变量取初值；

2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句； 3、 执行一次循环体

4、 循环变量增加一个增量 5、 重复步骤2~4。

以上可以看出，For-Next循环变量是一种当型循环。说明

（a） For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均

为I。

（b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量

的值小于终值。

入口 P

A

出口

二、Do－Loop循环

For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环 格式一： Do While 条件 循环体 Loop

例题：求最大公约数

Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer

a = Val(Text1.Text) b = Val(Text2.Text) r = a Mod b

Do While r <> 0 a = b b = r

r = a Mod b Loop

Text3.Text = Str(b) End Sub

Private Sub Command2_Click() End End Sub

当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。

第 12 页 共 20 页