1、下列关于程序设计说法正确的是（程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程）。
2、图形符号“ ”在算法描述流程图中表示（处理或运算的功能）。 3、Integer类型的变量可存的最大整数为（32767）。 4、代数表达式
12gt改成VB表达式后，错误的是（gt^2/2）。
25、对于窗体，Click（单击）是它的一个（重要事件）。 6、下列变量名写法错误的是（123abc）。
7、在Visual Basic中，下列（Abs(x)）函数是求绝对值的。 8、在Visual Basic中，设置控件的大小，可改变下列（Height9、以下是一段Visual Basic程序： a=1 b=a+1 c=a+b
它的基本结构属于（顺序结构）。
10、下列程序段运行后，变量Value的值是（100）。 X=20
If x>=10 Then
Value=5*x
Else
Value=4*x
End If
11、下面是变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为（①(x Mod 和Width）属性。
5)=0 And (x Mod 2)=0 ②x Mod 10 =0）。
Private Sub command1_Click()
Dim x As Integer X=Val(Text1.Text) If _______ =0 Then
Label1.Caption=”这个数是能被5整除的偶数” Else
Label1.Caption=”这个数不是能被5整除的偶数” End if End Sub
12、阅读下面程序，当单击窗体之后，窗体上输出的是（15 Private Sub From_Click()
Dim i As Integer: Dim s As Integer S=0
For i=1 to 5
s= s + i Next I Print s, i End Sub
13、执行下面的程序段：
Dim int1 As Integer, int2 As Integer Int1=1 Int2=0
Do While int1<20 Int2=int1+int2 Int1=int1*(int1+1) Loop
Text1.Text=int2
文本框Text1中显示的是（9）
14、下列程序段中，循环体执行的次数是（3）。 y=2
Do While y<=8 y= y + y Loop
15、编写程序，使能打印下面所示的图案。 * ** *** ** *
完成所有操作后，请按“Ctrl+S”保存。 Private Sub From_Click() Dim i As Integer Dim j As Integer For I= -3 to 2 Print Tab(Abs(i) +5 For j =1 to (4 – Abs(i))-1 6）。
Print “*”; Next j Print Next I End Sub
16、编写程序，求函数Y的值（当x≤0时，y=3x+1；当x>0时，y=4x+1）。 完成所有操作后，请按“Ctrl+S”保存。 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 “y=”;y End Sub
17、编程计算s = 1-2+3-4+5- „„ +99-100 完成所有操作后，请按“Ctrl+S”保存。 Private Sub Form_Click() Dim s As integer Dim i As integer S=0 For I=1 to 100
If I mod 2=1 then S=s+I Else
S=s-I End If Next I
Print “s=”;s End Sub
18、编程求：鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只？ 完成所有操作后，请按“Ctrl+S”保存。 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
VB（二）
1、下列说法错误的是（程序设计语言和计算机语言是同一概念的两个方面）。
2、图形符号“ ”在算法流程图描述中表示（输入输出操作） 3、下面（#False#）不是字符串常量。
4、下面表达式的值是False的有（str(2000<”1997)。
5、使用Visual Basic编程，我们把工具箱中的工具称为（控件）。 6、在声明一个变量时，可能用到的关键字是（As）。 7、下列函数中，返回值是字符串的是（Mid）。
8、在Visual Basic中，设置控件的位置，可改变下列（Left9、以下一段Visual Basic程序：
If I=1 Then X=x+1 Else
X=x+2
和Top）属性。
End If
它的基本结构属于（选择结构）。 10、分析下列程序：
Private Sub Form_Click() S=11\\3 + 11 mod 3 Print s End Sub 当单击窗体时S的值是（5）。
11、下列程序段运行后，A的值为（11）。 A=10
If A>=10 Then A=A+1 Else A=A-1 End If
12、阅读下面程序，单击窗体后，在文本框Text1和Text2中显示的内容分别是（3 Private Sub Form_Click()
Dim x As Integer : y As Integer X=1 : y=0
Do While x < 3
Y=y+x X+x+1 Loop
Text1.Text = x Text2.Text = y End Sub
13、阅读下面程序，单击窗体后，在文本框显示的内容是（12）。 Private Sub Form_Click()
Dim array1(10,10)As Integer Dim I,j As Integer For I=1 to 3 For j=2 to 4
Array1(I,j )=I+j Next j Next I
Text1.Text=array1(2,3)+array1(3,4) End Sub
14、下列程序段中，循环体执行的次数是（10）。
3）。
X=0
For y=1 to 10 X=x+1 Next y
15、设计一个程序，打印下面所示的图案。 * *** *****
*** *
完成所有操作后，请按“Ctrl+S”保存。 Private Sub Form_Click() Dim I As Integer Dim j As Integer For I= -3 to 2 Print Tab(Abs(i)+5); For j=1 to 2*(3-abs(i))-1 Print “*”; Next j Print Next I End Sub
16、编写程序，求y=6x –5的值。（x的值在程序中调用InputBox函数，在弹出的未准输入对话框中输入）。
完成所有操作后，请按“Ctrl+S”保存。 Private Sub Form_Click() Dim x As Single Dim y As Single
X= val (InputBox(“请输入变量x”))
Y=6*x –5 Print “y=”; y End Sub
17、编写程序，求1＋2＋„＋n>=500中最小的n。 完成所有操作后，请按“Ctrl+S”保存。 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
18、编写递归函数求5!的值。
完成所有操作后，请按“Ctrl+S”保存。 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(5) End Sub
VB(三)
1、下列关于算法说法不正确的是（BASIC算法只能用BASIC语言来实现）
2、下列流程图表示的是程序的（循环）基本结构的算法。
语句选择 Yes No 3、下列（Date）数据类型不是数值型.
4、表达式Abs（-3.6）*sqr（100）的值是（36）
5、在Visual Bisual Basic中显示和编辑程序代码时，采用（代码编辑窗口） 6、下列语句中定义了一个实型变量的是（Dim sum As Single） 7、下列（time（））函数返回系统懂得当前时间。 8、能够改变复选框中背景颜色的属性是（BackColor） 9、以下是一段VB程序：
A= 1 b=0
For I=1 To 5 b=b+A*I Next I 它的基本结构属于（循环结构）
10、列程序段中，循环体执行的次数是（0）
X=0
For Y=1 To 10 Step –1 X=X=1 Next Y
11、程序段运行后，m的值为（1）
A=2：b=1：c=5
If A〈b Then m=A Else m=b If c〈m Then m=c
12、读下面程序，当单击窗体之后，m的值是（6）
Private Sub Form_click ()
Dim m as integer: dim I as integer M=0
For I=1 to 3 M=m+2 Next I Print m End sub
13、阅读下面程序，单击窗体后，在文本框text1和text2 中显示的内容分别是（27，3）
private sub form_click()
dim x as integer , n as integer x=1 n=0
do while x<20
n=n+1 x=x*3 loop
text1.text=str(x) text2.text=str(n)
14、阅读下面程序，单击窗体后，在文本框显示的内容是（12） private sub form_click()
dim a(8), b(8) as integer dim I,j as integer for j=1to4 a(j)=2*j b(j)=a(j)*3 next j
text1.text=b(j\\2) end sub
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
16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个，这样到第十天的时候只有一个桃子可以吃了，编程序计算猴子最初有多少桃子
private sub form_click() dim I as integer dim s as integer
s=1 for I =1 to 9 s=(s+1)*2 next i print “s=”;s end sub
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
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=”;s(10) end sub
VB（四）
1、以下哪个是算法的描述方法？（自然语言描述法）。
2、VB中数据类型Integer表示整型数，存储为（16）位。
3、在VB中，以下哪个是正确表示十六进制整型数常量？（&32F） 4、在VB中，表达式2^3的结果是（8）。
5、判断x是否在区间(a, b)上，在VB中以哪个逻辑达达式是正确的？（a 7、在VB中，假定有以下程序段： For I=1 to 3 Step 2 Print “VB” Next i 则语句Print “VB”的执行次数是：（2）。 8、在VB中，以下程序段： a=6 If a<7 Then x=6 执行后，x的值为（6）。 9、在VB中，要设置窗口的标题文本，应使用属性：（Caption）。 10、在VB中，要设置某个对象属性时，应进入：（设计模式）。 11、如要完成，从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是（①输入的数存入n变量②如果n/2=Int(n./2)不成立，就显示n中值）。 12、a，b，c三个变量中存放不同的整数。让计算机处理一下使，a中值最大，b中值第二。能实现此要求，并比较好的算法是（①定义一个max(x,y)函数（值为x，y中大的值） ②a=max(max(a,b),c) ③b=max(b,c)）。 13、向n变量存入1个2位整数，要使此2位数百位和个位上的值分别存入x，y变量。正确的算法是（①x=int(n/10) ②y=n-x*10 ③Print x : Print y）。 14、有5人，问第5人年龄，说比前面第4人小3岁。问第4、3、2人，都说比前面人小3岁，问第1人，说他的年龄为38岁。问第5人的年龄多大。用递归法解决此问题的正确步骤是（①定义age(n)函数 ②函数中当n>1时返回函数值为age(n-1)-3 当n=1返回函数值为38）。 15、完善“显示”按钮的click程序，将代码段中“变量1”、“变量2”、“变量3”、处换成正确的变量名，使当单击该按钮时，Label1、Label2分别显示30、10。 完成所有操作后，请按“Ctrl+S”保存。 Private Sub command1_Click() X=10 Y=30 If x 16、完善按钮“计算7！”的click事件程序，当单击命令按钮时Text1显示7！的值。 完成所有操作后，请按“Ctrl+S”保存。 Private Sub command_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 17、利用属性窗口进行如下修改： （1）将窗体的标题改为“江苏省中小学信息技术等级考试”； （2）将标签字体、字号设置为“楷体”“四号”； 完善程序： 使当单击窗体时标签显示“算法与程序设计”； 完成所有操作后，请按“Ctrl+S”保存。 （1）属性（Form1 Form）→Caption(江苏省中小学信息技术等级考试) （2）属性（label1 label）→ font(楷体，四号) Private Sub Form_Click() 注：将Form1中的1删除 Label1.Caption=”算法与程序设计” End Sub 18、编写程序，当在Text1中输入x的值后，单击“计算”按钮，求y=|3x-5|的值。 完成所有操作后，请按“Ctrl+S”保存。 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 VB（五） 1、以下哪个是算法的描述方法？（流程图描述法） 2、VB中数据类型Integer表示整型数，存储为（2）字节。 3、在VB中，以下关于符号常量的声明，声明正确的是：String=“Visual Basic”）。 4、在VB中，表达式21 Mod 4的结果是，（1）。 5、设a=2，b=3，在VB中，表达式a>b Or b>=3值是：（True）。 6、数学式子2a(7+b)在VB中的正确写法是：（2*a*(7+b)）。 7、在VB中，假定有以下程序段： For i=3 to 1 Print “VB” Next i 则语句Print “VB”的执行次数是：（0）。 8、在VB中，以上程序段： x=0 Do While x<50 X=(x+2)*(x+3) Loop 执行后，X的值为：（72）。 9、在VB中，要设置文本框的缺省文字，应使用属性：（Text） Const TAG as （10、下列VB程序运行后，变量x的值为（2） x=2 Print x+1 Print x+2 11、如要完成，从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好的算法是（①输入的数存入n变量 ②如果n/2=Int(n/2)成立，就显示n中值） 12、求2!+3!+4!+5!„„10!的值。能完成此运算，并且比较好的算法是（①定义求阶乘的函数用jc(n) ②主程序中用一个循环9次调用jc(n)函数进行累加） 13、向x变量中输入任意一个小写字母，再将x变量中的小写字母转成大写字母（如“b”变成“B”）。正确的算法是（①输入字母到x ②x=Asc(x)-32 ③ x=Chr(x) ④Print x） 14、要求计算机打印出100至200之间所有偶数的平方根值。正确的算法是（For I=100 to 200 step 2: Print I, Sqr(i): Next I ） 15、完善“判断”按钮的click程序，使当从Text1中输入一个数时，当该数大于或等于60 时在Label1中显示“及格”，该数小于60时在Label1中显示“不及格”。 完成所有操作后，请按“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 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 End Sub 17、对窗体From1进行如下修改： （1）在窗体中增加一个标签； （2）设置标签的对齐方式为“居中对齐”； （3）完善“显示”按钮程序，使当单击该按钮时标签标题改为“算法与程序设计”； 完成所有操作后，请按“Ctrl+S”保存。 （1）双击工具箱中标签“A”；（Label） （2）属性Alignment (2-Center) （3）代码编写 Private Sub Command1_Click() Label1.caption=” 算法与程序设计” End Sub 18、在已打开的窗体Form1中，在窗体中增加一个文本框Text3。在完成按钮中的程序，使当单击“计算”按钮时，计算b*b-4ac的值，并在Text3中显示出来。 完成所有操作后，请按“Ctrl+S”保存。 （1）双击工具箱中文本框“ab”； （2）代码编写 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 因篇幅问题不能全部显示，请点此查看更多更全内容