VB.docx
- 文档编号:8762271
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:84
- 大小:53.59KB
VB.docx
《VB.docx》由会员分享,可在线阅读,更多相关《VB.docx(84页珍藏版)》请在冰豆网上搜索。
VB
1.OptionExplicit语句不可以放在_任何事件过程中
2.下列__28wed___不能作为VB中的变量名
3.表达式X=Exp(3)-Sqr(a^2+b*2)的类型是____关系表达式
4.以下叙述中错误的是___窗体或控件的事件的名称可以由编程人员确定___
5.在菜单过程中使用的事件是利用鼠标__单击____菜单条来实现的。
6.如果要在两个菜单命令项之间加一条分隔线,可在标题文本框中键入___-____。
7.运行以下程序,单击命令按钮后在窗体上输出内容____0_____。
PrivateSubCommand1_Click()
Dima()AsInteger
DimiAsInteger,jAsInteger
ReDima(3,4)
Fori=1To3
Forj=1To4
a(i,j)=(i-1)*10+j
Nextj
Nexti
ReDima(4,5)
Printa(2,3)
EndSub
8.设有如下程序:
OptionBase1
PrivateSubForm_Click()
DimA
DimiAsInteger
A=Array(1,2,3,4,5,6,7,8,9)
Fori=1To4
PrintA(4+i);
Nexti
EndSub
程序运行后,单击窗体,则在窗体上显示的是___5678_____。
9.执行下列程序段,输出结果为___出错_______。
Dima()AsInteger
DimiAsInteger
ReDima(10)
Fori=1To10
a(i)=2*i-1
Nexti
Printa(4);
Erasea
Printa(4)
10.执行下面的程序,输出结果是_______1830____。
OptionExplicit
PrivateSubForm_Click()
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)
EndIf
Nexti
Printj
EndSub
以下说法中错误的是______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
Nexti
Printi;k
21.有程序段如下:
Fori=1To3
Forj=5ToiStep-1
Printi*j
Nextj
Nexti
其中"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
Ifa>70Theni=2
Ifa>80Theni=3
Ifa>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
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
EndSub
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时,能够执行"Open"命令,则在菜单编辑器中设置"Open"命令的方式是____把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&"是回文"
Else
Text2.Text=Text1.Text&"不是回文"
EndIf
EndSub
42.下列程序段的执行结果为____1224_______。
n=0
Fori=1To3
Forj=5ToiStep-1
n=n+1
Nextj
Nexti
Printn;j;i
43.执行下面的程序段,输出结果是___ABCBCD______。
Dimstr1AsString,str2AsString
str1="abc"
str1=UCase(str1)
Fori=1To3
str2=Chr(Asc(str1)+i)
str1=str1&str2
Nexti
Printstr1
44.下列程序的执行结果为______10_____。
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimiAsInteger
Fori=1To10
a(i)=i
Nexti
Callf(a(5))
Printa(5)
EndSub
PrivateSubf(nAsInteger)
n=n+5
EndSub
45.完善下列程序,要求实现按每行5个输出1到100之间所有的素数。
PrivateSubForm_Click()
DimnAsInteger,iAsInteger
DimkAsInteger,flagAsBoolean
Forn=2To100
Fori=2ToSqr(n)
IfnModi=0Then
__exitfor________
EndIf
Nexti
Ifi>sqr(n)Then
Printn;
_____k=1+k______
IfkMod5=0ThenPrint
EndIf
Nextn
EndSub
46.以下程序的功能是随机生成20个1到100之间的正整数,用选择法将其按从大到小的顺序排列后输出。
PrivateSubCommand1_Click()
Dima(20)AsInteger,iAsInteger
DimjAsInteger,tempAsInteger
Print"排序前:
"
Fori=1To20
a(i)=Int(Rnd*100)+1
Printa(i);
Nexti
Fori=1To19
Forj=_i+1_______To20
If_a(j)_>a(i)______Then
t=a(i)
a(i)=a(j)
___a(j)=t_____
EndIf
Nextj
Nexti
Print"排序后:
"
Fori=1To20
Printa(i);
Nexti
EndSub
47.执行以下程序,单击命令按钮后,如果从键盘上输入5,则第一行输出结果是_12345_____,第二行输出结果是_00000000000_____。
PrivateSubCommand1_Click()
Dima()AsInteger
DimnAsInteger,iAsInteger
n=InputBox("inputn:
")
ReDima(n)
Fori=1Ton
a(i)=i
Printa(i);
Nexti
ReDima(10)
Fori=0To10
Printa(i);
Nexti
EndSub
48.执行以下程序,单击命令按钮后,输出结果是_012345678910_____。
PrivateSubCommand1_Click()
Dima(10)AsInteger
Dimb
Fori=1To10
a(i)=i
Nexti
ForEachbIna
Printb;
Nextb
EndSub
49.随机文件的读操作通过__get________语句实现,而写操作通过put语句实现。
50.执行下面程序段,如果运行时输入2,则在窗体上输出结果是__4____。
DimxAsInteger
x=InputBox("inputx")
Ifx>1Then
y=x+2
ElseIfx<5Then
y=x+3
ElseIfx=2Then
y=x
EndIf
Printy
51.执行下面的程序段,文本框Text1中显示的是___9____。
DimiAsInteger,jAsInteger
i=1
DoWhilei<20
j=i+j
i=i*(i+1)
Loop
Text1.Text=j
52.设计一个函数,求任意数的阶乘。
编写通用函数过程如下,请补充程序。
PublicFunctionf(nAsDouble)AsDouble
DimsAsDouble
DimiAsInteger
Ifn<0ThenExitFunction
s=1
Fori=1Ton
__s=s*i_________
Nexti
f=s
EndFunction
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:
c=b+a
EndIf
Printa+b+c
EndSub
54.执行以下程序,单击命令按钮后,如果在弹出的对话框中单击"是"按钮,则窗体上的输出内容是____6___。
PrivateSubCommand1_Click()
DimaAsInteger
a=MsgBox("非法数据!
"&Chr(13)&Chr(10)&"请重新输入",vbYesNo+vbCritical,"提示信息")
Printa
EndSub
55.执行下面程序,若依次输入10,20,30,40,50,60,则输出结果是__103050204060____。
OptionBase1
PrivateSubCommand1_Click()
Dima(3,2)AsInteger
Dimi%,j%,t
Fori=1To3
Forj=1To2
a(i,j)=InputBox("请输入数组元素的值")
Nextj
Nexti
ForEachtIna
Printt;
Nextt
EndSub
56.第一题:
新建一个工程,双击控件面板上的"TextBox"控件,在窗体Form1上自动添加一个"名称"为"Text1"的文本框,在属性页上把"Text"属性设为"",单击标准工具栏上的"菜单编辑器"按钮,通过单击"下一个"按钮切换,分别在"标题框"和"名称框"中输入题面中要求的菜单名称及标题。
再选中要设置成子菜单的项目,并单击向右的箭头,设置成主菜单的二级菜单。
单击"查看代码"按钮,输入以下代码:
PrivateSubblue.Click()
Text1.Text="blue"
'或Text1.Text=blue.Caption
EndSub
PrivateSubred.Click()
Text1.Text="red"
'或Text1.Text=red.Caption
EndSub
PrivateSubyellow.Click()
Text1.Text="yellow"
'或Text1.Text=yellow.Caption
EndSub
单击标准工具栏中的"保存工程"按钮,选择考生文件夹,以文件名wy5.frm,wy5.vbp分别保存。
第二题:
选择"打开工程"命令,选择考生文件夹下的wy6.vbp文件,打开,右键单击Form1窗体,选择"查看代码"选项,在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号),修改后正确的程序代码如下:
PrivateSubC1_Click()
Text1.Text=""
IfCh1.Value=1Then
Text1.Text=Text1.Text+"程序设计"
EndIf
IfCh2.ValueThen
IfText1.Text<>""ThenText1.Text=Text1.Text+"和"
Text1.Text=Text1.Text+"数据库原理"
EndIf
IfText1.Text<>""Then
Text1.Text="学习"+Text1.Text
EndIf
EndSub
单击标准工具栏上的"保存工程"按钮,将修改后的结果加以保存。
1.下列叙述中不正确的是__变量名可以包含小数点或者内嵌的类型声明字符____。
2.设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是___Text1.Enabled=False____。
3.下列程序段的执行结果为___0223_____。
DimM
(2)
Fori=1To2
M(i)=0
Nexti
K=2
Fori=1Tok
Forj=1TOk
M(j)=M(i)+1
PrintM(k);
Nextj
Nexti
4.下列程序段的执行结果为____46____。
Dima(10)AsInteger,b()AsInteger
DimiAsInteger
ReDimb(5)
Fori=1To10
a(i)=i
IfiMod2=0Then
b(i/2)=a(i)
EndIf
Nexti
Printa(4);b(3)
5.调用由语句PrivateSubConvert(YAsInteger)定义的Sub过程时,以下不是按值传递的是_____ConvertX______。
6.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是____代码窗口____。
7.以下叙述中错误的是___VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性_____。
8.下面关于随机文件的描述不正
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB