以下关于MsgBox的叙述中Word下载.docx
《以下关于MsgBox的叙述中Word下载.docx》由会员分享，可在线阅读，更多相关《以下关于MsgBox的叙述中Word下载.docx（21页珍藏版）》请在冰豆网上搜索。
PrivateSubcommand1_click（）
Dimx,nAsInteger
DimcounterAsInteger
For（）=1To50
x=Int（Rnd*41+60）
If（）Mod6=2Then
counter=counter+1
EndIf
Nextn
Printcounter
EndSub
（4分）
2、*对10个100以内的整数用冒泡法按递减顺序排序。
PrivateSubCommand1_Click（）
Dima（10）AsInteger,tAsInteger
DimiAsInteger,jAsInteger
Fori=1To10
a（i）=Int（Rnd*101）
Printa（i）;
Nexti:
Print
Fori=1To9
Forj=1To10-i
Ifa（j）<
a（j+1）Then（）=a（j）:
a（j）=a（j+1）:
a（j+1）=t
Nextj
Nexti
Printa（（））;
EndSub
3、*随机产生n个两位整数，求出其中的最大值和最小值。
Dima（100）AsInteger,nAsInteger,iAsInteger
DimminAsInteger,maxAsInteger
（）=InputBox（vbCrLf+vbCrLf+"
n="
）
Print"
产生的随机数为"
Randomize
Fori=1Ton
a（i）=Int（Rnd*90）+10
min=a
（1）:
max=min
Fori=2To（）
Ifa（i）>
maxThenmax=a（i）
Ifa（i）<
minThenmin=a（i）
最大值为"
;
max
最小值为"
min
4、*三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。
PrivateSubForm_Click（）
DimR（1To3,1To4）AsInteger
DimS（1To3）AsInteger
Dimi%,j%,max%,k%'
k为最高成绩学生序号
Fori=1To3
（）（i）=0
Forj=1To4
R（i,j）=Int（30*Rnd+70）
PrintTab（（j-1）*5）;
R（i,j）;
S（i）=S（i）+R（i,j）
S（i）=S（i）/4
max=0
Fori=（）To3
学生"
&
i;
"
平均成绩:
"
S（i）
Ifmax<
S（i）Then
max=S（i）
k=i
最高平均成绩k="
k,"
max="
5、*利用判断一个三位数是否为对称数（如：
343）的函数过程，求出所有三位对称数之和。
*程序代码如下：
DimsumAsLong,nAsInteger
sum=0
Forn=100To999
Ifduicheng（n）thensum=sum+
Nextn
EndSub
PublicFunctionduicheng（ByVali%）AsBoolean
a=iMod10
c=i\100
Ifa=cThen
duicheng=true
Else
duicheng=False
End
6、*下面程序计算1!
+3!
+5!
+...+9!
的值，请将其补充完整。
DimntAsSingle
PrivateSubaa（ByValnAsSingle）
DimiAsInteger
nt=1
Fori=1Ton
nt=nt*i
Nexti
PrivateSubForm_Click（）
DimsumAsSingle,nAsInteger
sum=0
Forn=1To9Step2
aa（）
sum=sum+（）
Printsum
7、*编写一个显示随机数的程序，如图{<
x_2.jpg>
}所示。
*运行过程：
*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。
PrivateSubCommand1_Click（）
Timer1.Enabled=True
Timer1.Interval=
PrivateSub_Load（）
Label1.ForeColor=vbWhite
Label1.BackColor=vbGreen
PrivateSubTimer1_（）
Label1=Val（Int（Rnd*90000+10000））
以下关于MsgBox的叙述中，错误的是______。
MsgBox函数返回一个整数
通过MsgBox函数可以设置信息框中图标和按钮的类型
MsgBox过程语句没有返回值
MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数
语句T=MsgBox（“程序执行了非法操作"
vbAbortRetryIgnore,“提示信息“）的执行后，可以在对话框中显示______个按钮。
1
2
3
4
下列符号中，属于VisualBasic合法变量名的是______。
x23
8xy
END
X8[B]
运行程序：
x=2:
Fori=1To10Step2:
x=x+i:
Next，x的值是______。
26
27
38
57
执行程序段：
DimaxsAsInteger:
axs%=232:
axs=232.32:
Printaxs%;
axs，输出的结果是______。
232232
执行程序Forn=1To3:
Cls:
n;
Nextn后,输出结果是______。
n=3
InStr（“VisualBasic程序设计简明教程中关于可视化界面的设计“,“设计“）的函数值为______。
15
PrintFormat（32556,"
#######"
）;
Format（32556,"
###"
）的输出结果是______。
3255632556
m、n是整数，且n>
m，在以下4个语句中，能将x赋值为一个m～n之间（含m,n）的任意整数，即满足m≥x≥n的是______。
x=Int（Rnd*（n–m+1））+m
以下声明语句中，错误的是______。
Publicconst=“计算机等级考试“
k$=Lcase$（m$）:
j$=Ucase$（n$）:
97
窗体设计器是用于设计______。
应用程序的界面
下面关系运算中，输出结果为“True”的是______。
1"
+2="
12"
+"
2"
="
3"
2="
能产生[10，32]之间随机整数的函数表达式为______。
Int（Rnd*23）+10
32556—32556
32556-325
--32556325
8
除了系统默认的工具箱之外，还可以通过______方法来增加控件。
执行“工程”菜单中的“部件”命令
PrintDateDiff（“m“,#1/28/2004#,#1/31/2004#）的输出结果是______
执行x=-6^2:
PrintSgn（x）+Abs（x）+Int（x）的结果是______。
-36
-1
下列各组中，两个函数功能完全相反的是______。
Str（x）和Val（x）
Asc（x）和Chr（x）
LTrim（x）和RTrim（x）
Timer（x）和Time（x）
Fori=1To10Step-2:
For=1To50
IfMod6=2Then
2、*对10个100以内的整数用选择法按递增顺序排序。
a（i）=Int（*101）
Fori=1To9
Forj=i+1To
a（j）Thent=a（i）:
a（i）=a（j）:
a（j）=t
3、*删除已知数组a中的某个元素。
Dima（）AsVariant,nAsInteger,KeyAsInteger
a=Array（1,6,8,3,5,9,10,2,7,4）
n=UBound（a）
Key=InputBox（"
请输入要删除的数"
Fori=0Ton
IfKey=a（i）ThenExitFor
Ifi=n+1ThenMsgBox（"
找不到此数"
）ExitSub
Forj=i+1Ton
a（j-1）=a（j）
n=-1
ReDimPreservea（n）
（i）=0
Fori=To3
5、*设计一个求两个数的最大公约数的函数过程。
OptionBase1
PrivateFunction（ByValm%,ByValn%）AsInteger
Ifm<
nThent=m:
m=n:
n=t
Do
r=mModn
Ifr=0ThenExitDo
m=n
n=r
Loop
gcd=
EndFunction
sum=sum+
7、*大写字符转换小写字符，如图{<
x_4.jpg>
}所示
PrivateSubText1_（KeyAsciiAsInteger）
IfKeyAscii>
=Asc（"
A"
）AndKeyAscii<
Z"
）Then
Text2=Text2+Chr（KeyAscii32）
Else
Text2.=Text2+Chr（KeyAscii）
EndIf
【附图4】
（6分）
三、编程题（2道小题，共20分）
1、*编写程序：
*试求1到500以内能被3或者被5整除的数的个数。
（10分）
必须将本题程序最后的运行结果填入下面的框中。
否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
2、*编写程序：
*先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：
统计出该数据文件中从第51个到第10000个数据中奇数的个数。
（【下载文件“kaoshiwenjian.txt”】；
）下载方法：
在链接上右击打开弹出菜单，选择“目标另存为”。
随机产生n个两位整数，求出其中的最大值和最小值。
PrivateSubCommand1_Click（）Dima（100）AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsIntegern=InputBox（vbCrLf+vbCrLf+"
）Print"
RandomizeFori=1Tona（i）=Int（Rnd*90）+10Printa（i）;
Printmin=a
（1）:
max=minFori=2TonIfa（i）>
maxThenmax=a（i）Ifa（i）<
minThenmin=a（i）NextIPrint"
maxPrint"
minEndSub
23、过程的作用域分为（B）。
A、窗体级和局部级B、模块级和局部级
C、窗体/模块级和全局级D、窗体/模块级和局部级
25、能在一个工程的所有程序中使用的变量，称为（B）。
A、局部变量B、全局变量
C、窗体级变量D、模块级变量
27、使用PublicConst语句声明一个全局的符号常量时，应该将该语句放在（D）。
A、过程中B、窗体模块的通用声明段
C、标准模块的通用声明段D、窗体模块或标准模块的通用声明段
28、在窗体中，用（D）语句声明的变量是静态变量。
A、DimZAsIntegerB、PublicZAsInteger
C、PrivateZAsIntegerD、StaticZAsInteger
29、下列叙述中，正确的叙述是（D）。
A、局部变量的作用域可以超出所定义的过程B、在窗体的Form_Load事件过程中定义的变量是全局变量
C、在调用过程时，所有局部变量被系统初始化为0或空字符串D、在Sub过程A中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于过程A
37、在一个工程中如果想添加一个标准模块，不能实现的操作是（D）。
A、使用“工程”菜单中的相应命令B、使用工具栏上的相应命令按钮
C、在工程资源管理窗口按右键调出相应命令D、使用“编辑”菜单中的相应命令
41、当一个工程含有多个窗体时，它的启动窗体是（D）。
A、正在编辑的窗体B、最后一个添加的窗体
C、第一个添加的窗体D、在"
工程属性"
对话框中指定的窗体
42、当一个工程含有多个窗体时，单击启动命令按钮，运行的窗体是（D）。
A、正在编辑的窗体B、第一个添加的窗体
C、最后一个添加的窗体D、在工程属性对话框中指定的窗体
46、语句Open"
c:
\Datafile.dat"
ForOutputAs#513有一个错误，该错误是（C）。
A、要求打开的文件不存在B、文件的打开模式不正确
C、指定的文件号超过应有范围D、文件类型不对
47、下列叙述中，正确的叙述是（A）。
A、文件是记录的集合B、读写文件不需要通过内存
C、从内存向外存传送数据，为读文件，使用读语句D、从外存向内存传送数据，为写文件，使用写语句
14、以下不合法的常量是______。
A、10^2
B、100
C、100.0
D、10E+01
24、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是______。
A、Enabled
B、Apperance
C、AutoRedraw
D、Moveable
29、下列符号常量的声明中，______是不合法的。
A、ConstaAsSingle=2.6
B、
升级会员 