vb程序例题分析.pptVIP

* 一、程序顺序结构： 将命令和语句逐条顺序排列，程序执行时按语句的先后顺序逐条执行。 例：下列程序，输出S的值是（ ） Private Sub Form_Click() s=11\3+11 Mod 3 Print s End Sub 5 1、在VB中，以下赋值语句错误的是（ ） A. x=2x B. x=x+1 C. x=x+1 D. x=x*x 2、下列VB程序运行后，变量x的值是（ ） x=4 print x+1 print x+3 A 4 3、A=10,B=30,依次执行语句T=A,A=B,B=T后，A的值是（ ） 30 Private Sub Form_Click() Dim s As Integer s=Not 3*511 Print s End Sub 输出s的值是（ ） 3、下列程序段： A. False B. True C. 1 D. 0 D 4、有如下VB程序段： a=4 b=5 c=3 c=b-a 该程序段运行后，变量c的值为( ) A. 3 B. 4 C. 1 D. 7 C 二、程序选择结构： 根据条件判断其是否成立，如果成立，则执行成立的分支，否则执行另一分支。 2、If 条件 Then 语句组1 Else 语句组2 End If 条件语句的基本格式： 1、If 条件 Then 语句序列1 Else 语句序列2 3、 If 条件 Then 语句序列 End If 1、有如下VB程序段： a=3 b=5 If ab Then m=a Else m=b 该程序段运行后，变量m的值为( ) A. 3 B. 4 C. 5 D. 6 C 条件语句的基本格式： If 条件 Then 语句序列1 Else 语句序列2 2、有如下VB程序段： x=9 If x=10 Then s=5*x Else s=3*x+10 End If 该程序段运行后，变量s的值为( ) 37 3、有如下VB程序段： a=6 If a7 Then x=6 该程序段运行后，变量x的值为( ) 6 条件语句的基本格式： If 条件 Then 语句组1 Else 语句组2 End If If 条件 Then 语句序列 End If 课堂练习： 商场促销苹果，购买3千克以上每千克1.3元，否则每千克1.5元，设计程序，计算购买X千克苹果的应付款。 Private Sub Command1_Click() Dim X As Single, Y As Single X = InputBox(x=, 输入购买量) If X 3 Then Y = 1.3 * X Else Y = 1.5 * X End If Print 应付款; Y; 元 End 打开“考生”文件夹中的文件“工程1.vbp”,进行以下操作后并保存。（编程在字符串相连接时不使用“+”要使用“”运算符） （1）在窗体“Form1.frm”中，设置“Command1”按钮的“Caption”属性值为“判断”。 （2）完善程序，使之能够实现如下功能：在左边的文本框中输入一个100以内的正整数（包括100不包括0），单击“判断”按钮，在右边的文本框中显示是“奇数”不是“偶数”。输入大于100的整数则显示“输入的整数不能超过100”。 注：① 运行时，把红色下划线删除。 ②不能删除注释语句。 Private Sub Command1_Click() Dim x As Integer