Nexti
Print"最大值为";max
Print"最小值为";min
EndSub
(4分)
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)
Nextj
S(i)=S(i)/4
Print
Nexti
max=0
Fori=()To3
Print"学生"&i;"平均成绩:
"&S(i)
Ifmax
max=S(i)
k=i
EndIf
Nexti
Print"最高平均成绩k=";k,"max=";max
EndSub
(4分)
5、*利用判断一个三位数是否为对称数(如:
343)的函数过程,求出所有三位对称数之和。
*程序代码如下:
PrivateSubCommand1_Click()
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
EndIf
End
(4分)
6、*下面程序计算1!
+3!
+5!
+...+9!
的值,请将其补充完整。
*程序代码如下:
DimntAsSingle
PrivateSubaa(ByValnAsSingle)
DimiAsInteger
nt=1
Fori=1Ton
nt=nt*i
Nexti
EndSub
PrivateSubForm_Click()
DimsumAsSingle,nAsInteger
sum=0
Forn=1To9Step2
aa()
sum=sum+()
Nextn
Printsum
EndSub
(4分)
7、*编写一个显示随机数的程序,如图{}所示。
*运行过程:
*点击训练开始按钮之后,每隔一秒产生一个5位数的随机整数显示到上面的标签中。
PrivateSubCommand1_Click()
Timer1.Enabled=True
Timer1.Interval=
EndSub
PrivateSub_Load()
Label1.ForeColor=vbWhite
Label1.BackColor=vbGreen
EndSub
PrivateSubTimer1_()
Label1=Val(Int(Rnd*90000+10000))
EndSub
以下关于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
运行程序:
x=2:
Fori=1To10Step2:
x=x+i:
Next,x的值是______。
27
执行程序Forn=1To3:
Cls:
Print"n=";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=“计算机等级考试“
执行程序段:
m$="ABC":
n$="abc":
k$=Lcase$(m$):
j$=Ucase$(n$):
PrintAsc(k$+j$),输出的结果是______。
97
窗体设计器是用于设计______。
应用程序的界面
下面关系运算中,输出结果为“True”的是______。
"1"+2="12"
"1"+"2"="3"
"1"&2="12"
"1"&"2"="3"
能产生[10,32]之间随机整数的函数表达式为______。
Int(Rnd*23)+10
PrintFormat(32556,"#######");Format(32556,"###")的输出结果是______。
3255632556
32556—32556
32556-325
--32556325
8
除了系统默认的工具箱之外,还可以通过______方法来增加控件。
执行“工程”菜单中的“部件”命令
执行程序段:
DimaxsAsInteger:
axs%=232:
axs=232.32:
Printaxs%;axs,输出的结果是______。
232232
PrintDateDiff(“m“,#1/28/2004#,#1/31/2004#)的输出结果是______
0
执行x=-6^2:
PrintSgn(x)+Abs(x)+Int(x)的结果是______。
-36
1
-1
下列各组中,两个函数功能完全相反的是______。
Str(x)和Val(x)
Asc(x)和Chr(x)
LTrim(x)和RTrim(x)
Timer(x)和Time(x)
运行程序:
x=2:
Fori=1To10Step-2:
x=x+i:
Next,x的值是______。
2
1、*产生50个60~100的随机数,统计其中被6整除余2的个数,并将这些数输出。
PrivateSubcommand1_click()
Dimx,nAsInteger
DimcounterAsInteger
For=1To50
x=Int(Rnd*41+60)
IfMod6=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(*101)
Printa(i);
Nexti:
Print
Fori=1To9
Forj=i+1To
Ifa(i)>a(j)Thent=a(i):
a(i)=a(j):
a(j)=t
Nextj
Nexti
Fori=1To10
Printa(i);
Nexti:
Print
EndSub
(4分)
3、*删除已知数组a中的某个元素。
PrivateSubCommand1_Click()
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
Nexti
Ifi=n+1ThenMsgBox("找不到此数")ExitSub
Forj=i+1Ton
a(j-1)=a(j)
Nextj
n=-1
ReDimPreservea(n)
Fori=0Ton
Printa(i);
Nexti:
Print
EndSub
(4分)
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)
Nextj
S(i)=S(i)/4
Print
Nexti
max=0
Fori=To3
Print"学生"&i;"平均成绩:
"&S(i)
Ifmax
max=S(i)
k=i
EndIf
Nexti
Print"最高平均成绩k=";k,"max=";max
EndSub
(4分)
5、*设计一个求两个数的最大公约数的函数过程。
*程序代码如下:
OptionBase1
PrivateFunction(ByValm%,ByValn%)AsInteger
Ifmm=n:
n=t
Do
r=mModn
Ifr=0ThenExitDo
m=n
n=r
Loop
gcd=
EndFunction
(4分)
6、*下面程序计算1!
+3!
+5!
+...+9!
的值,请将其补充完整。
*程序代码如下:
DimntAsSingle
PrivateSubaa(ByValnAsSingle)
DimiAsInteger
nt=1
Fori=1Ton
nt=nt*i
Nexti
EndSub
PrivateSubForm_Click()
DimsumAsSingle,nAsInteger
sum=0
Forn=1To9Step2
aa()
sum=sum+
Nextn
Printsum
EndSub
(4分)
7、*大写字符转换小写字符,如图{}所示
PrivateSubText1_(KeyAsciiAsInteger)
IfKeyAscii>=Asc("A")AndKeyAscii<=Asc("Z")Then
Text2=Text2+Chr(KeyAscii32)
Else
Text2.=Text2+Chr(KeyAscii)
EndIf
EndSub
【附图4】(6分)
三、编程题(2道小题,共20分)
1、*编写程序:
*试求1到500以内能被3或者被5整除的数的个数。
(10分)
必须将本题程序最后的运行结果填入下面的框中。
否则,该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
2、*编写程序:
*先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序,要求:
统计出该数据文件中从第51个到第10000个数据中奇数的个数。
(【下载文件“kaoshiwenjian.txt”】;)下载方法:
在链接上右击打开弹出菜单,选择“目标另存为”。
(10分)
必须将本题程序最后的运行结果填入下面的框中。
否则,该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
随机产生n个两位整数,求出其中的最大值和最小值。
PrivateSubCommand1_Click()Dima(100)AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsIntegern=InputBox(vbCrLf+vbCrLf+"n=")Print"产生的随机数为"RandomizeFori=1Tona(i)=Int(Rnd*90)+10Printa(i);Nexti:
Printmin=a
(1):
max=minFori=2TonIfa(i)>maxThenmax=a(i)Ifa(i)23、过程的作用域分为(B)。
(1分)
A、窗体级和局部级B、模块级和局部级
C、窗体/模块级和全局级D、窗体/模块级和局部级
25、能在一个工程的所有程序中使用的变量,称为(B)。
(1分)
A、局部变量B、全局变量
C、窗体级变量D、模块级变量
27、使用PublicConst语句声明一个全局的符号常量时,应该将该语句放在(D)。
(1分)
A、过程中B、窗体模块的通用声明段
C、标准模块的通用声明段D、窗体模块或标准模块的通用声明段
28、在窗体中,用(D)语句声明的变量是静态变量。
(1分)
A、DimZAsIntegerB、PublicZAsInteger
C、PrivateZAsIntegerD、StaticZAsInteger
29、下列叙述中,正确的叙述是(D)。
(1分)
A、局部变量的作用域可以超出所定义的过程B、在窗体的Form_Load事件过程中定义的变量是全局变量
C、在调用过程时,所有局部变量被系统初始化为0或空字符串D、在Sub过程A中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于过程A
37、在一个工程中如果想添加一个标准模块,不能实现的操作是(D)。
(1分)
A、使用“工程”菜单中的相应命令B、使用工具栏上的相应命令按钮
C、在工程资源管理窗口按右键调出相应命令D、使用“编辑”菜单中的相应命令
41、当一个工程含有多个窗体时,它的启动窗体是(D)。
(1分)
A、正在编辑的窗体B、最后一个添加的窗体
C、第一个添加的窗体D、在"工程属性"对话框中指定的窗体
42、当一个工程含有多个窗体时,单击启动命令按钮,运行的窗体是(D)。
(1分)
A、正在编辑的窗体B、第一个添加的窗体
C、最后一个添加的窗体D、在工程属性对话框中指定的窗体
46、语句Open"c:
\Datafile.dat"ForOutputAs#513有一个错误,该错误是(C)。
(1分)
A、要求打开的文件不存在B、文件的打开模式不正确
C、指定的文件号超过应有范围D、文件类型不对
47、下列叙述中,正确的叙述是(A)。
(1分)
A、文件是记录的集合B、读写文件不需要通过内存
C、从内存向外存传送数据,为读文件,使用读语句D、从外存向内存传送数据,为写文件,使用写语句
14、以下不合法的常量是______。
(1分)
A、10^2
B、100
C、100.0
D、10E+01
24、如果想用Print方法将计算结果显示在窗体上,则必须保证属性值为True的属性是______。
(1分)
A、Enabled
B、Apperance
C、AutoRedraw
D、Moveable
29、下列符号常量的声明中,______是不合法的。
(1分)
A、ConstaAsSingle=2.6
B、