1、 1 高三算法复习高三算法复习七七（基本语句一基本语句一） 1、 赋值语句的一般形式 。 2、 当系统执行一个赋值语句时，先求出“=” 的值，然后再把该值保存 到“=” 中，这就是“赋值” 。 3、针对语句 If I=1 then J=1，下列说法正确的是( ) A. I=1 和 J=1 均为赋值语句 B. 均为关系表达式 C. I=1 为关系表达式，J=1 为赋值语句 D. I=1 为赋值语句，J=1 为关系表达式 4、下面给出的赋值语句中错误的是（ ） Ax=x=y Bx+y=3 CLabel1.Caption=“hello“ Dx=-b 5、以下是一段 VB 程序： a = 1 b =
2、a + 1 c = a + b 它的基本结构属于（ ） A、顺序结构 B、选择结构 C、循环结构 D、树型结构 6、下列 VB 程序运行后，变量 x 的值为( ). x=2 Print x+l Print x+2 A、2 B、3 C、5 D、8 7、交换两个变量中的数据，把下面代码补充完整，并在右边画出两个变量交换示意图 Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = Val(txtsx.Text) y = Val(txtsy.Text) 交换数据 txtdx.Text = Str(x)
3、txtdy.Text = Str(y) End Sub 8、行 If 语句 行 If 是指在一行中写完的 If 语句。其一般格式为： 格式一：If条件Then语句 执行这种形式的 If 语句时，首先对条件进行判断。若条件成立，则执行 Then 后面的语句； 若条件不成立，则执行 If 语句后继程序行的语句 例：if 31 then a=10 格式二：If条件 Then 语句 1 Else 语句 2 例：输入三个不相同的数，求出其中最小数。 Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim Min As
4、Single a =val( text1.text) b = val( text2.text) c = val( text3.text) 2 If a 0 时，y=4x+1） 。 Private Sub Form_Click() Dim x As Single Dim y As Single x = Val(InputBox(“请输入变量 x“) If Then Else End If Print “y=“; y End Sub 10、以下是一段 Visual Basic 程序: If I=1 Then 3 X=X+1 Else X=X*2 End If 它的基本结构属于( ). A、选择结构
5、 B、循环结构 C、顺序结构 D、树型结构 11、下列程序段运行后，变量 Value 的值是（ ） x = 20 If x = 10 Then Value = 5 * x Else Value = 4 * x End If A、100 B、80 C、90 D、70 12、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好 的算法是( )。 选项: A、输人的数存人 n 变量f=(n/2=Int(n/2)如果 f 中的值为 True 就显示 n 中值 B、输人的数存人 n 变量f=(n/2=Int(n/2)如果 f 中的值为 False 就显示 n 中值 C、输人的数存人
6、 n 变量如果 n/2=Int(n/2)成立，就显示 n 中值 D、输人的数存人 n 变量如果 n/2=Int(n/2)不成立，就显示 n 中值 13、下面是判断变量 x 是不是能被 5 整除的偶数的程序，横线上的逻辑表达式应为( ) 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
7、 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 14、下列程序段运行后,m 的值为( ) A=2: b=1: c=5 If A 0 Then s=y Da(i)=a(i)+a(i+1) 16、如下程序段运行后，a 和 b 的值分别是（ ） a=6：b=9 a=a*b b=ab a=ab A、6,9 B、9,6 C、0,0 D、1,6 4 17、 “如果 a，b 中任意一个为 0，那么 y=y+l” 。能实现该功能的 VB 语句是（ ） AIf a=0 And b=0 Then y=y+1 BIf a*b=0 Then y=y+1 CIf
8、a=0,b=0 Then y=y+1 DIf a,b=0 Then y=y+1 18、小明在大街上经常看见一种测量身高体重并提示肥瘦的机器，很感兴趣，就在 VB 中 编写了如下程序，程序运行时，在文本框 Text1 中输入数据 60，在文本框 Text2 中输入数 据 178，单击命令按钮 Command1 后，文本框 Text3 中显示的内容是（ ） Private Sub Command1_Click( ) Dim t As Integer, h As integer Dim ans as integer Dim xs as single t = Val(Text1.Text) h = Val(Text2.Text) xs=t2/h If xs18 Then Ans=“偏瘦“ Elseif xs=25 then Ans=“正常“ Else Ans=“肥胖“ Endif Text3.Text =Ans End Sub A.偏瘦 B.正常 C.肥胖 D.Ans
