模拟五Word文档格式.docx
- 文档编号:17247690
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:12
- 大小:52.39KB
模拟五Word文档格式.docx
《模拟五Word文档格式.docx》由会员分享,可在线阅读,更多相关《模拟五Word文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
程序运行后,单击命令按钮,输出结果是___B____。
A.12B.6C.5D.7
6、执行下面程序后,输出的结果是_C_____。
Dima(10,10)AsInteger
Fori=1To10
Forj=1To10
a(i,j)=i*j
Nextj
Printa(1,2)+a(2,3)
A.12B.10C.8D.6
7.在在窗体上添加一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程:
Subp1(aAsInteger,bAsInteger,ByValcAsInteger)
c=a+b
DimxAsInteger,yAsInteger,zAsInteger
x=5
y=7
z=0
Callp1(x,y,z)
Text1.Text=Str(z)
EndSubB
程序运行后,单击命令按钮得到的结果是___A____。
A.0B.12C.Str(z)D.没有显示
8、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Move500,500
EndSub
程序运行后,单击命令按钮,执行的操作为(B)。
A)命令按钮移动到距窗体左边界、上边界各500的位置
B)窗体移动到距屏幕左边界、上边界各500的位置
C)命令按钮向左、上方向各移动500
D)窗体向左、上方向各移动500
9.下列窗体属性属于字符类型的是___A_。
A)Name和Caption
B)MaxButton和MinButton
C)Visible和Enabled
D)Borderstyle和WindowState
10.以下控件没有Click事件是_C___。
A)TextBoxB)Label
C)TimerD)Image
11.语句PrintFormat(0.5725,"
#.00"
)的输出结果是__C_____。
A.0.5725B..5725
C..57D.0.57
12.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为_D___。
A)5B)500
C)10D)5000
13.在MsgBox函数中哪一个参数是必须的(A)
A.PromptB.Buttons
C.TitleD.Context
14、在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=InputBox("
EntertheFirstinteger"
)
b=InputBox("
EntertheSecondinteger"
Printb+a
EndSub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是(A)
A.579B.123C.456D.123456
15.如果准备读文件,打开顺序文件"
text.dat"
的正确语句是(C)。
(A)open"
ForwriteAs#1
(B)open"
ForBinaryAs#1
(C)open"
ForInputAs#1
(D)open"
ForRandomAs#1
16.在VisualBasic应用程序中,以下描述正确的是__B_____。
A.过程的定义可以嵌套,但过程的调用不能嵌套
B.过程的定义不可以嵌套,但过程的调用可以嵌套
C.过程的定义和过程的调用均可以嵌套
D.过程的定义和过程的调用均不可以嵌套
17.假定有以下函数过程:
Functionfunc(aAsInteger,bAsInteger)AsInteger
func=a+b
EndFunction
在窗体上添加一个命令按钮,然后编写如下事件过程:
p=func(10,20)
Printp;
程序运行时,单击命令按钮得到的结果是____C___。
A.10B.20C.30D.40
18.下面合法的常量是(C)。
A.1/2B.'
abcd'
C.1.2*5D.False
19.在下列表达式中,正确的日期型常量是____D__。
A."
12/04/01"
B.12-04-2001
C.{12/04/01}D.#12/04/01#
20.下列各项不是VisualBasic的基本数据类型的是_______A。
A.CharB.StringC.IntegerD.Double
21.执行PRINT9.4\3.7,9.4MOD3.7命令后,输出结果为_____A__。
A.21B.30C.220D.12
22.Rnd函数不可能为下列___B__值。
?
A.0B.1C.0.1234D.0.0005
23.若Y="
welcome!
"
,则表达式Left(Y,Len(Y)-1)的值是______C_。
B."
w"
C."
welcome"
D."
24.表达式Int(5*Rnd+1)*Int(5*Rnd-1)值的范围是__D____。
A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]
25.可实现从字符串任意位置截取字符的函数是___B___。
A.Instr()B.Mid()C.Left()D.Right()
26.下列结构中不属于循环结构的是____C__。
A.For/NextB.While/Wend
C.With/EndWithD.Do/Loop
27.以下程序段执行后,变量s、x的值分别为___C___。
DimsAsInteger,xAsInteger
s=10:
x=1
DoWhilex<
10
s=s+2
x=x+2
Loop
Prints,x
A.5011B.2010C.2011D.10010
28.下列程序中s=s+j语句共执行了____B__次。
DimsAsInteger
DimiAsInteger,jAsInteger
Fori=1To10Step2
Forj=1To5Step2
s=s+j
Nexti
Prints
A.10B.15C.20D.25
29.下列程序段的执行结果为__A__。
K=5
y=-20
IfNotx>
0Thenx=y-3Elsey=x+3
Printx-Y;
Y-x
A)-33B)58
C)3-3D)25-25
30.用SelectCase语句选择|x|<
=10情况的语句为:
Case_____B__。
A.Not(-10To10)B.-10To10
C.IsAbs(x)>
10D.Is<
-10Or>
10
二、程序阅读题
1.以下程序实现了九九乘法表
Fori=1To____①_____
Forj=1To_____②_____
Printi;
"
*"
;
j;
="
i*j,
___③____
__④____
1)程序①处应该填入程序为D
A.6B.7C.8D.9
2)程序②处应该填入程序为C
A.8B.9C.iD.j
3)程序③处应该填入程序为B
A.InputboxB.PrintC.Printi*jD.不填写
4)程序④处应该填入程序为A
A.NextIB.NextjCNextDNextX
2.程序代码如下:
n=Val(Text1.text)
s=0
Fori=1Ton
k=k+i
L1:
s=s+k
Label1.Caption=Str(s)
1)程序运行后,如果在Text1中输入4,则输出的结果是(D)
A、4B、10C、16D、20
2)在该程序中除窗体外,至少定义了(A)个控件。
A、2B、3C、4D、5
3)上述程序的功能是:
(C)
A、计算1+2+3+4+5+……+n
B、计算1+(2+2)+(3+3+3)+……+(n+n+n……+n)
C、计算1+(1+2)+(1+2+3)+……+(1+2+3+……+n)
D、计算n+n+……+n
4)若将L1行处的代码改为:
s=k,则程序的功能是:
(A)。
C、计算1+(1+2)十(1+2+3)+……+(1+2+3+……+n)
D、计算n+n+……+n
3.OptionBase0
DimaAsVariant,bAsVariant
Dimc(7)AsInteger
a=Array(2,8,7,6,4,26,24)
b=Array(79,27,32,40,57,66,82)
L1:
Fori=1To6
c(i)=b(i)-a(i)
Printc(i);
1)以下关于语句“OptionBase0”的说法中正确的是(B)。
A、其功能是指定数组下标上界的值为1
B、其功能是指定数组下标下界的值为1
C、其功能是指定数组下标下界的值为0
D、其功能是指定数组下标上界的值为0
2)对于以上程序中的array函数,下列说法正确的是(B)
A、可以定义变量a为integer类型B、只能用来对静态的一维数组赋值
C、只能用来对静态的多维数组赋值D、可以用来对多维数组赋值
3)该程序的功能是(D)。
A、打印数组a和数组b
B、打印数组a与数组b的和
C、将数组a与数组b进行比较,打印出值大的元素
D、计算数组a与数组b的差,并打印输出
4)L1行处的程序可以改为:
()。
A、fori=lbound(c)toubound(c)
B、fori=1toLbound(c)
C、fori=lbound(c)to1step–1
D、fori=7toubound(c)step-1
4、阅读下列程序
a=Val(InputBox("
请输入a的值"
))
b=Val(InputBox("
请输入b的值"
L1:
Print"
a="
a;
Tab(10);
b="
b
L2:
Printf(f(a))+f(2+f(b))
Functionf(x)
Ifx<
0Then
f=2*x
ElseIfx<
=3Then
f=int(sqr(x))
Else
f=x\2
EndIf
x=x+1
1)程序运行后,单击窗体,若两输入框内分别输入0和4,则f(f(a))+f(2+f(b))的结果为(B)。
A、0B、2C、3D、4
2)函数过程f其返回值的类型为:
A、IntegerB、SingleC、DoubleD、Variant
3)若L1行处代码与L2行处代码交换位置,程序运行后,单击窗体,两输入框内分别输入0和4,则变量a的值为()。
A、0B、1C、2D、3
4)程序运行后,单击窗体,若两输入框内分别输入0和4,L1行处程序代码为实现与之相同的输出效果可以将Tab(10)改换为其它函数,若改为spc函数,则其括号内的参数为(B)。
A、8B、9C、10D、11
5.程序代码如下:
Dima(1To4)AsInteger
Fori=1To4
a(i)=i+5
ssa()
Printa(i);
Subss(b()AsInteger)
b(i)=2*i
1)在程序中所定义的数组a是(C)
A)用户自定义数据类型B)静态数组
C)用户自定义数组类型D)动态数组
2)程序运行的结果是(B)
A)1234B)2468
C)6789D)12141618
3)如果在全部代码前添加语句“optionbase1”则程序运行的结果(A)
A)无变化B)有变化
C)出现语法错误D)以上说法都不对
4)L1行处的代码可以修改为(C)
A)callss(b())B)calla()
C)callss(a())D)ssb()
三、主观题
主观题(30分)
请设计如下图所示程序运行界面:
程序需要实现的功能为:
1、单击“产生随机数”按钮时,随机产生20个[20,80)之间的随机数,并显示在List1(左边的列表框)中。
2、当单击“从大到小排序”按钮时,将从大到小排序的数据显示在List2(右边的列表框)中。
3、当单击“写入文件”按钮时,将从大到小排序后的数据写入“M:
\zg.txt”文件中。
Dima(20)AsInteger
List1.Clear
Randomize
Fori=1To20
a(i)=Int(60*Rnd+20)
List1.AddItema(i)
PrivateSubCommand2_Click()
List2.Clear
Fori=1To19
Forj=i+1To20
Ifa(i)<
a(j)Then
t=a(i)
a(i)=a(j)
a(j)=t
EndIf
List2.AddItema(i)
PrivateSubCommand3_Click()
Open"
e:
\zg.txt"
ForOutputAs#1'
考试的时候把e改为m就好了,现在是把文件输到e盘根目录的
Print#1,a(i);
Close#1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 模拟
![提示](https://static.bdocx.com/images/bang_tan.gif)