VBWord文档格式.docx
《VBWord文档格式.docx》由会员分享，可在线阅读，更多相关《VBWord文档格式.docx（84页珍藏版）》请在冰豆网上搜索。
DimMAsInteger,NAsInteger
M=1:
N=2
PrintM+N+F（M,N）
M=2:
N=1
PrintF（M,N）+F（M,N）;
EndSub
PrivateFunctionF（XAsInteger,YAsInteger）
X=X+Y
Y=X+3
F=X+Y
EndFunction
11.设有如下程序
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger
DimnAsInteger
n=InputBox（"
输入数据"
）
Ifn<
10Then
CallGetArray（a,n）
EndIf
EndSub
PrivateSubGetArray（b（）AsInteger,nAsInteger）
Dimc（10）AsInteger
j=0
Fori=1Ton
b（i）=CInt（Rnd（）*100）
Ifb（i）/2=b（i）\2Then
j=j+1
c（j）=b（i）
Printj
以下说法中错误的是______GetArray过程的参数n是按值传送的_____
12。
在语句PublicSubSort（IAsInteger）中，I是一个按______地址_____传递的参数。
13.假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是___分别保存窗体模块、标准模块和工程文件_____。
14.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是____通用对话框____。
15.VB是一种面向___对象_____的程序设计语言。
16.以下关于文件的叙述中，错误的是______随机文件中记录的长度是随机的_____。
17.向已有数据的C:
\test\test.txt文件添加数据，正确的文件打开命令是_____Open"
C:
\test\test.txt"
ForAppendAs#511______。
18.在使用OPEN语句打开文件时，如果省略"
for子句"
，则打开的文件存取方式为______随机存取方式_____。
19.执行以下语句后，a的值为__3___。
DimaAsInteger
a=1
Do
a=a+2
LoopWhilea=100
20.执行以下语句后，k的值为___2.454 __。
DimiAsSingle
Fori=0.45To2Step0.5
k=k+1
Printi;
k
21.有程序段如下：
Forj=5ToiStep-1
Printi*j
其中"
Printi*j"
语句执行的次数为____12_____。
22.在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有____Text3.Text=val（Text1.Text）+val（Text2.Text）____可使文本框Text3中显示46。
23.执行语句：
A=Inputbox（"
Today"
"
Tomorrow"
Yesterday"
）
将显示一个输入对话框，在对话框的输入区中显示的信息是___Yesterday___。
24.若执行定义语句DimaAsInteger，以下给a赋值的语句中，错误的是___a=2*32760\3___。
25.SelectCase语句结构中，测试项可以有三种形式，以下使用正确的是___CaseIs>
x____。
26.下列程序段的执行结果是___False____。
X=2
Y=1
IfX*Y<
1ThenY=Y-1ElseY=-1
PrintY-X>
0
27.运行下面程序，如果输入85，则输出结果是_i=3____。
DimaAsInteger,iAsInteger
a=InputBox（"
inputa:
"
Ifa>
60Theni=1
70Theni=2
80Theni=3
90Theni=4
Print"
i="
;
i
28.为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是__Cancel______。
29.在以下有关对象属性的叙述中错误的是___Enabled属性值设为False的控件对象在窗体上将不可见____。
30.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是____Stretch____。
31.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1.Label2，标题分别为空白和"
共有文件"
的标签。
编写程序，使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。
能够正确实现上述功能的程序是:
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
32.在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。
然后编写如下事件过程:
PrivateSubCommand1_Click（）
CommonDialog1.FileName="
CommonDialog1.Filter="
allfile|*.*|（*.DoC）|*.Doc|（*.Txt）|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="
VBTest"
CommonDialog1.Action=1
EndSub
对于这个程序，以下叙述中错误的是_____在该对话框中指定的默认文件类型为文本框（*.Txt）______。
33.在一个语句行内写多条语句时，语句之间应该用____冒号__分隔。
34.数学式子sin30°
写成VB表达式是___Sin（30*3.14/180）___。
35.以下使用方法的语句中，正确的是____List1.Clear___。
36.窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用PublicKAsInteger,DimKAsInteger声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用_____Frm1.k______。
37.下面程序段的运行结果为____溢出____。
DimsAsInteger,iAsInteger
i=1:
s=1
Do
i=i+s
LoopUntils>
10
Printi,s
38.设菜单中有一个菜单项为"
Open"
。
若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"
命令，则在菜单编辑器中设置"
命令的方式是____把Caption属性设置为&
Open___。
39.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Move500，500
EndSub
程序运行后，单击命令按钮，执行的操作为___窗体移动到距屏幕左边界、上边界各500的位置____。
40.以下使用方法的代码中，正确的是___Text1.SetFocus___。
41.在文本框Text1中输入一串字符，判别其是否是回文字符串。
所谓回文字符串是指正读和反读都一样的字符串，比如ABBA、DEAED等就是回文字符串。
PrivateSubCommand1_Click（）
DimsAsString,nAsInteger,mAsInteger
s=Text1.Text
n=1
______m=len（s）_________
DoWhilen<
=m
IfMid（s,n,1）=Mid（s,m,1）Then
m=m-1
__n=n+1_______
Else
ExitDo
EndIf
Loop
If____n>
m_____Then
Text2.Text=Text1.Text&
"
是回文"
不是回文"
42.下列程序段的执行结果为____1224_______。
n=0
n=n+1
Printn;
j;
43.执行下面的程序段，输出结果是___ABCBCD______。
Dimstr1AsString,str2AsString
str1="
abc"
str1=UCase（str1）
str2=Chr（Asc（str1）+i）
str1=str1&
str2
Printstr1
44.下列程序的执行结果为______10_____。
Dima（10）AsInteger
Fori=1To10
a（i）=i
Callf（a（5））
Printa（5）
PrivateSubf（nAsInteger）
n=n+5
45.完善下列程序，要求实现按每行5个输出1到100之间所有的素数。
DimnAsInteger,iAsInteger
DimkAsInteger,flagAsBoolean
Forn=2To100
Fori=2ToSqr（n）
IfnModi=0Then
__exitfor________
Ifi>
sqr（n）Then
_____k=1+k______
IfkMod5=0ThenPrint
Nextn
46.以下程序的功能是随机生成20个1到100之间的正整数，用选择法将其按从大到小的顺序排列后输出。
Dima（20）AsInteger,iAsInteger
DimjAsInteger,tempAsInteger
排序前：
Fori=1To20
a（i）=Int（Rnd*100）+1
Printa（i）;
Print
Fori=1To19
Forj=_i+1_______To20
If_a（j）_>
a（i）______Then
t=a（i）
a（i）=a（j）
___a（j）=t_____
排序后：
47.执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是_12345_____，第二行输出结果是_00000000000_____。
inputn:
ReDima（n）
Fori=1Ton
a（i）=i
ReDima（10）
Fori=0To10
48.执行以下程序，单击命令按钮后，输出结果是_012345678910_____。
Dimb
ForEachbIna
Printb;
Nextb
49.随机文件的读操作通过__get________语句实现，而写操作通过put语句实现。
50.执行下面程序段，如果运行时输入2，则在窗体上输出结果是__4____。
DimxAsInteger
x=InputBox（"
inputx"
Ifx>
1Then
y=x+2
ElseIfx<
5Then
y=x+3
ElseIfx=2Then
y=x
Printy
51.执行下面的程序段，文本框Text1中显示的是___9____。
i=1
DoWhilei<
20
j=i+j
i=i*（i+1）
Text1.Text=j
52.设计一个函数，求任意数的阶乘。
编写通用函数过程如下，请补充程序。
PublicFunctionf（nAsDouble）AsDouble
DimsAsDouble
0ThenExitFunction
s=1
__s=s*i_________
f=s
53.运行如下程序段，输出结果为__16______。
PrivateSubcommand1_click（）
a=1:
b=2:
c=3
a=a+b:
b=b+a:
c=b+a
Ifa<
>
3Orb<
3Then
a=b-a:
b=c-a:
Printa+b+c
54.执行以下程序，单击命令按钮后，如果在弹出的对话框中单击"
是"
按钮，则窗体上的输出内容是____6___。
a=MsgBox（"
非法数据！
&
Chr（13）&
Chr（10）&
请重新输入"
vbYesNo+vbCritical,"
提示信息"
Printa
55.执行下面程序，若依次输入10，20，30，40，50，60，则输出结果是__103050204060____。
Dima（3,2）AsInteger
Dimi%,j%,t
Forj=1To2
a（i,j）=InputBox（"
请输入数组元素的值"
ForEachtIna
Printt;
Nextt
56.第一题：
新建一个工程，双击控件面板上的"
TextBox"
控件，在窗体Form1上自动添加一个"
名称"
为"
Text1"
的文本框，在属性页上把"
Text"
属性设为"
，单击标准工具栏上的"
菜单编辑器"
按钮，通过单击"
下一个"
按钮切换，分别在"
标题框"
和"
名称框"
中输入题面中要求的菜单名称及标题。
再选中要设置成子菜单的项目，并单击向右的箭头，设置成主菜单的二级菜单。
单击"
查看代码"
按钮，输入以下代码：
PrivateSubblue.Click（）
Text1.Text="
blue"
'
或Text1.Text=blue.Caption
PrivateSubred.Click（）
red"
或Text1.Text=red.Caption
PrivateSubyellow.Click（）
yellow"
或Text1.Text=yellow.Caption
单击标准工具栏中的"
保存工程"
按钮，选择考生文件夹，以文件名wy5.frm，wy5.vbp分别保存。
第二题：
选择"
打开工程"
命令，选择考生文件夹下的wy6.vbp文件，打开，右键单击Form1窗体，选择"
选项，在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'
号），修改后正确的程序代码如下：
PrivateSubC1_Click（）
IfCh1.Value=1Then
Text1.Text=Text1.Text+"
程序设计"
IfCh2.ValueThen
IfText1.Text<
ThenText1.Text=Text1.Text+"
数据库原理"
Then
学习"
+Text1.Text
单击标准工具栏上的"
按钮，将修改后的结果加以保存。
1.下列叙述中不正确的是__变量名可以包含小数点或者内嵌的类型声明字符____。
2.设窗体上有一个文本框，名称为Text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是___Text1.Enabled=False____。
3.下列程序段的执行结果为___0223_____。
DimM
（2）
Fori=1To2
M（i）=0
K=2
Fori=1Tok
Forj=1TOk
M（j）=M（i）+1
PrintM（k）;
4.下列程序段的执行结果为____46____。
Dima（10）AsInteger,b（）AsInteger
ReDimb（5）
IfiMod2=0Then
b（i/2）=a（i）
b（3）
5.调用由语句PrivateSubConvert（YAsInteger）定义的Sub过程时，以下不是按值传递的是_____ConvertX______。
6.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是____代码窗口____。
7.以下叙述中错误的是___VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性_____。
8.下面关于随机文件的描述不正
升级会员 