以下关于MsgBox的叙述中Word下载.docx
- 文档编号:22650775
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:21
- 大小:34.25KB
以下关于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:
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、
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 以下 关于 MsgBox 叙述