当前位置:首页 >> 其它课程 >> 江苏省高二信息技术选修VB练习参考答案(1-5)[1]

江苏省高二信息技术选修VB练习参考答案(1-5)[1]


VB( VB(一)
1、下列关于程序设计说法正确的是(程序设计就是寻求解决问题的方法,并 程序设计就是寻求解决问题的方法,

将其实现步骤编写成计算机可以执行的程序的过程) 。
2、图形符号“ ”在算法描述流程图中表示(处理或运算的功能) 。

3、Integer 类型的变量可存的最大整数为(32767) 。 4、代数表

达式

1 2 gt 改成 VB 表达式后,错误的是(gt^2/2) 。 2

5、对于窗体,Click(单击)是它的一个(重要事件) 。 6、下列变量名写法错误的是(123abc) 。 7、在 Visual Basic 中,下列(Abs(x))函数是求绝对值的。 8、在 Visual Basic 中,设置控件的大小,可改变下列(Height 9、以下是一段 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 (

和 Width)属性。

Mod

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

6) 。

2

Print Tab(Abs(i) +5 For j =1 to (4 – Abs(i))-1

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(二) VB(
1、下列说法错误的是(程序设计语言和计算机语言是同一概念的两个方

面) 。
2、图形符号“ ”在算法流程图描述中表示(输入输出操作)

3、下面(#False#)不是字符串常量。 4、下面表达式的值是 False 的有(str(2000<”1997)。 5、使用 Visual Basic 编程,我们把工具箱中的工具称为(控件) 。 6、在声明一个变量时,可能用到的关键字是(As) 。 7、下列函数中,返回值是字符串的是(Mid) 。 8、在 Visual Basic 中,设置控件的位置,可改变下列(Left 9、以下一段 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 的值。 的值在程序中调用 InputBox 函数,在弹出的未准输入 (x 对话框中输入) 。 完成所有操作后,请按“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(三 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 X=X=1 Next Y

Step –1

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 I

print tab (10); for j = 1 to 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( VB(四)
1、以下哪个是算法的描述方法?(自然语言描述法) 。

2、VB 中数据类型 Integer 表示整型数,存储为(16)位。 3、在 VB 中,以下哪个是正确表示十六进制整型数常量?(&32F) 4、在 VB 中,表达式 2^3 的结果是(8) 。 5、判断 x 是否在区间(a, b)上,在 VB 中以哪个逻辑达达式是正确的?(a<x And 6、数学式子

x<=b)

2a + b 在 VB 中的正确写法是: 2*a+b)/(4*a*b)。 ( 4ab

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<y Then T=x X=y Y=t End If Label1.Caption=x Label2.Caption=y End Sub 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 A=a*I Next I Text1.Text = a End Sub 17、利用属性窗口进行如下修改: (1)将窗体的标题改为“江苏省中小学信息技术等级考试” ; (2)将标签字体、字号设置为“楷体” “四号” ; 完善程序: 使当单击窗体时标签显示“算法与程序设计” ; 完成所有操作后,请按“Ctrl+S”保存。 (1)属性 Form1 ( (2)属性(label1 属性(

7

Form) Caption(江苏省中小学信息技术等级考试) → label)→ font(楷体,四号) 楷体,
注:将 Form1 中的 1 删除

Private Sub Form_Click()

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( VB(五)
1、以下哪个是算法的描述方法?(流程图描述法) 2、VB 中数据类型 Integer 表示整型数,存储为(2)字节。 3 、 在 VB 中 , 以 下 关 于 符 号 常 量 的 声 明 , 声 明 正 确 的 是 : Const (

TAG as

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

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 a=a+i Next

100

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


更多相关文档:

江苏省高二信息技术选修VB练习参考答案(1-5)[1]

江苏省高二信息技术选修VB练习参考答案(1-5)[1]_其它课程_高中教育_教育专区。为信息技术考试准备VB( VB(一) 1、下列关于程序设计说法正确的是(程序设计就是寻...

2013江苏省信息技术学业水平测试vb操作题带答案

2013江苏省信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。祝您考试成功! 2013江苏省信息技术学业水平测试vb操作题带答案 Vb专项练习1、...

高中信息技术VB试题及答案

高中信息技术VB试题答案_其它课程_高中教育_教育...( 5.要在窗体上仅显示文字,选用( 22.已知 f(1...C.Abs(Int(-3.9)) ) [参照第45题做,仔细思考...

习题解答1

1页 免费 流体力学习题答案 10页 1下载券 LS-PrePost...885 ? 10 5 (Pa) 7.利用压缩空气,把水从一...50m/s,根据连续性方程知:SAvA= SBvB+SCvC vB ?...

江苏省信息技术选修选择题(附答案)

江苏省信息技术选修选择题(答案)_其它课程_高中教育_教育专区。2013 年 12 ...130.34.4.5 B、200.10.2.1 C、127.0.0.1 D、10.10.46.128 103、...

vb课后练习答案习题解答 (5)

vb课后练习答案习题解答 (5)_理学_高等教育_教育专区。第5章 数组与记录 5.1 填空题 1.若要定义个包含 10 个字符串元素,且下界为 1 的一维数组 s,则...

《国家开放大学学习指南》形考任务1-5参考答案(2015春)_上传版

国家开放大学(电大)学习指南形考任务参考答案(2015 春) 形考任务 1: 标记题目 信息文本 一、单项选择(每题 5 分,共计 10 分)题目 1 正确 获得 5.0 分中...

浙江省高中信息技术选考加试题VB专项练习题五及答案

浙江省高中信息技术选考加试题VB专项练习题五答案_高考_高中教育_教育专区。...d(1)=2, d(2)=4, d(3)=5, d(4)=10, d(5)=12, d(6)=20。 ...

练习六参考答案

练习参考答案_学科竞赛_小学教育_教育专区。大学物理练习六解答 一、选择题 1.理想气体经历如图所示的 a b c 平衡过程,则系统对外作功 A,从外界吸收的热量 ...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com