VB程序设计知识点归纳Word文档下载推荐.docx
《VB程序设计知识点归纳Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB程序设计知识点归纳Word文档下载推荐.docx（81页珍藏版）》请在冰豆网上搜索。
5\2.5等价于5\2
5\2.6等价于5\3
5\2.4等价于5\2
5.4\3等价于5\3
5\1.5等价于5\2
6函数String（n，"
str"
）的功能是返回由n个字符组成的字符串
7设有如下声明：
DimXAsInteger如果Sgn（X）的值为-1，则X的值是小于0的数Sgn（3-5）=-1Sgn（5-3）=1
8Integer类型的数据由2字节组成，Long类型的数据由4字节组成。
9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn（Y-X）-Sgn（A-B）=-2
10在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式（无括号）中，其运算顺序为②③①
以下合法的VisualBasic标识符是那些：
ForLoopB
ConstC
9abcD
a#xA通常所说的变量名
11能正确表示条件"
整型变量x值是大于等于-5并且小于等于5"
的逻辑表达式-5<
=xandx<
=5
12求下列表达式的值：
表达式4+5\6*7/8Mod9的值是5，表达式5Mod3+3\5*2的值是2
设a=2,b=4,c=6，下列表达式a>
bEqvc<
a的值为真
Eqv相同为true相反为false
设S="
中华人民共和国"
，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为"
中国人民"
表达式2*4^2-2*6/3+3\2的值是29
表达式5＾2Mod252＾2的值是1
13VB算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余
14获得系统日期的函数是date（）
15数学式子sin30°
写成VB表达式是：
Sin（30*3.14/180）
16在VisualBasic的立即窗口内输入以下语句
X＝65
?
Chr$（X）
在窗口中显示的结果是__A__
17计算下列表达式的值
表达式93
Mod
2^2的值是__1__。
表达式Len（＂123程序设计ABC＂）的值是__10__。
Int（198.555*100+0.5）/100的值是__198.56__。
已知A$=＂12345678＂，则表达式val（Left$（A$,4）+Mid$（A$,4,2））的值为（123445）
左取4位1234中取4位开始2位
18数学关系3≤x＜10表示成正确的VB表达式为3<
=x
And
x<
10
或
x>
=3
and
10
19表示x是5的倍数或是9的倍数的逻辑表达式是x
mod
5=0
or
x
9=0
20s$=“china”：
s$=“Beijing”：
Print
s$
以上语句的输出结果是___。
参考答案Beijing
21表达式Ucase（Mid（＂abcdefgh＂,3,4））的值是_CDEF_。
22已知a=3.5，b=5.0,
c=2.5,d=true,则表达式：
a>
=0
a+c>
b+3
OR
NOT
d的值是_False__。
第四章
1VB中可用MsgBox语句产生一消息框。
2VB提供了结构化程序设计的三种基本结构，三种基本结构是：
选择结构
循环结构
顺序结构
3InputBox函数返回值的类型为字符串。
J下列语句正确的是（C）
IfA≠BThenPrint"
A不等于B"
B
IfA<
>
BThenPrintf"
C
BThenPrint"
D
IfA≠BPrint"
4在DoUntil…Loop循环中，判断循环表达式与结束循环的关系是先判断循环表达式，
当表达式值为真时结束循环
5在While循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式
值为真时执行循环体
6设a=6，则执行x=IIf（a＞5,-1,0）后,x的值为–1
Ifa>
5then
A=-1
Else
A=0
endif
7要使下列For语句循环执行20次，循环变量的初值应当是多少?
For
k=
__1__To
-5
Step
-2参考答案1：
33
N=（终值-初值）/2+1
8以下语句的输出结果是:
PrintInt（12345.6789*1000.5）/100参考答案12345
9给出下列程序运行的结果
（1）x=5
y=-6
IfNotx>
0Thenx=y-3Elsey=x+3
Printx-y;
y-x结果-33
（2）J1=4
J2=9
IfJ1<
J2ThenPrintJ2ElsePrintJ1结果为9
（3）执行以下程序段后，变量c$的值为（QuickBASICPrograming）
a$="
VisualBasicPrograming"
b$="
Quick"
c$=b$&
Ucase（Mid$（a$,7,6））&
Right$（a$,11）
（4）以下语句的输出结果是032,548.50。
PrintFormat$（32548.5,"
000,000.00"
）
（5）在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
A=Text.Text+Text2.Text
Printa
EndSub
PrivateSubFormm_Load（）
Text1.Text="
"
Text2.Text="
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，
然后单击命令按钮，则输出结果为123321。
（6）阅读下面的程序段：
ForI=1To3i=1i=2i=3
Forj=1ToIj=1to1j=1to2j=1to3
Fork=jTo3k=1to3k=1to3k=2to3k=1to33
A=A+1a=3a=3+3+2k=2to32
Nextkk=3to31
Nextja=8+3+2+1
NextI
执行上面的三重循环后，a的值为__14__。
（7）在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程：
PrivateSubCommand1_Click（）
X=0
DoWhilex<
50
X=（x+2）*（x+3）
N=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
程序执行后，单击命令按钮，在两个文本框中显示的值分别为2和72。
（8）设a=10，b=5，c=1，执行语句Printa>
b>
c后，窗体上显示的是False
（9）在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
StaticXAsInteger
StaticYAsInteger
Cls
Y=1
Y=Y+5
X=5+X
PrintX,Y
EndSub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为156Static无法释放x=5+5+5y=1+5
（10）设有语句 x=InputBox（"
输入数值"
，"
0"
示例"
）程序运行后，如果从键盘上输入数值10
并按回车键，变量X的值是字符串"
10"
（11）在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：
一个计时器控件，名称为Timerl的时间。
程序为：
PrivateSubTimer1_（）
TxtTime.text=Time
EndSub在下划线上应填入的内容是Timer
（12）假定有以下程序段：
Fori=1To33-1/1+1=3
Forj=5To1Step-11-5/-1+1
Printi*j3*5
Next
Next则语句Printi*j的执行次数是15
（13）以下程序段的输出结果为（4）
x=1
y=4
DoUntily>
4
x=x*y
y=y+1
Printx
（14）在窗体上面画一个文本框，然后编写如下事件过程：
PrivateSubForm_Activate（）
Text1.Text="
"
Text1.SetFocus
Fori=1to10
Sum=Sum+i
Next
Text1.Text=Sum
EndSub上述程序的运行结果是55
首相加末项*项数/2
（15）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Forn=1To20
IfnMod3<
0Then
m=m+n\3
Nextn
Printn
程序运行后，如果单击命令按钮，则窗体上显示的内容是（21）
（16）设有如下程序：
DimsumAsDouble,xAsDouble
sum=0
n=0
Fori=1To5
x=n/i
n=n+1
sum=sum+x
EndSub该程序通过For循环计算一个表达式的值，这个表达式是（1/2+2/3+3/4+4/5）
（17）下面程序运行后，窗体（Form1）中输出的结果是（TrueTrue）
PrivateSubForm_Load（）
Form1.AutoRedraw=True设置form1让他显示结果
X=3:
y=5
Printx=3;
y=5x是否=3
（18）下面程序执行的结果是（579）
A="
123"
:
b="
456"
C=Val（a）+Val（b）2边是数字则做加法
Printc
EndSub
（19）若i的初值为8，则下列循环语句的循环次数为（5）次同样可以用公式：
（终值-初值）/步长+1
DoWhilei<
=17
i=i+2
（20）执行下面的程序段后，x的值为（21）
x=5
Fori=1To20Step2
x=x+i\5
NextI
（21）下面程序运行后，输出的值是（54）
J=1
doWhileJ＜5
J=J+1
A=A+J*J
loop
PrintA
（22）有如下程序：
PrivateSubFormKeyPress（KeyAsciiAsInteger）
Form=1To3
Forj=1Tom
Fork=jTo3
n=n+m+j-k
Nextk
Nextj
Nextm
Printn
EndSub程序运行后，按任意键，n的值是（20）
（23）在窗体上画一个命令按钮，然后编写如下事件过程：
A=″12″
B=″34″
C=″56″
PrintA＋B＋C
EndSub程序运行后，单击命令按钮，输出结果是（123456）
（24）下面程序运行后输出的结果是（11020）
A=0
ForM=1To10
A=A+1∶B=0
ForJ=1To10
A=A+1∶B=B+2
NextJ∶NextM
PrintA;
B
（25）x=int（Rnd）+3：
if
x^2>
8
theny=x^2+1：
x^2=9
then
y=x^2-2：
x^2<
y=x^3：
print
y
程序运行后输出的结果是_7_。
（26）执行下面的程序段，x的值为
Fori=1To9
a=a+i
Nexti
x=Val（i）
MsgBoxx
EndSub_.参考答案10
（27）在窗体上有一个命令按钮，然后编写如下程序：
FunctionTrans（ByValnumAsLong）AsLong
DimkAsLong
k=1
DoWhilenumnum=0时循环终止
k=k*（numMod10）取个位10位百位相乘
num=num＼10
Trans=k
PrintTrans
EndFunction
DimmAsLong
DimsAsLong
m=InputBox（"
请输入一个数"
）
s=Trans（m）
程序运行时，单击命令按钮，在输入对话框中输入"
789"
，输出结果为__1__,在输入
对话框中输入"
987"
输出__2__在输入对话框中输入"
879"
，输出结果为__3__.
参考答案1：
5042：
5043：
504
10表达式Int（4*Rnd+1）*（Int（4*Rnd-1））值的范围是［-4，8］
11语句x+y=x，是错误的赋值语句。
12逻辑表达式Not（1＞2），其逻辑值为“真”
13表达式1.5+32＞2Or7Mod3＜4AndNot1的运算结果是（-1）
14可以将变量A、B值互换的语句是A=C:
C=B:
B=A
15执行如下语句：
a＝inutBox（"
Today"
TomorroW，"
Yesterday"
,,"
Daybeforeyesterday"
，5）
将显示一个输入对话框，在对话框的输入区中显示的信息是（Yesterday）
16能在窗体Form1的标题栏中显示"
VisualBasic窗体"
的语句是（Form1.Caption="
）
第五章
1如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是（StaticaAsInteger）
2声明一个变量为局部变量应该用（Static）
3Sub过程与Function过程最根本的区别是（Sub过程不能返回值，而Function过程能返回值）
4若要向列表框添加列表项，可使用的方法是（AddItem）
5在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名
6Sub过程中不可以嵌套调用Sub过程
7定有以下函数过程：
FunctionFun（SAsString）AsString
Dims1AsString
Fori=1ToLen（S）
s1＝UCase（Mid（S，i，1））十s1
Nexti
Fun＝s1
EndFunction
在窗体上画一个命令按钮，然后编写如下事件过程：
PrlvateSubCommmldl_Click（）
DimStr1AsString，Str2AsString
Strl＝inputbox（"
请输入一个字符串"
Str2=Fun（Strl）
PrintStr2
EndSub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"
abcdefg"
，则单击"
确
定"
按钮后在窗体上的输出结果为（GFEDCBA）
8复选框的Value属性为__1__时，表示复选框被选中。
第六章
1用下面语句所定义的数组的元素个数是（9）
Dima（-3to5）asinteger
2要声明一个长度为256个字符的定长字符串变量str，正确的语句是（DimstrasString*256）
3设有数组声明语句：
OptionBase0
DimB（-1To10,2To9,20）AsInteger则数组B中共有（2016）个元素
4在窗体上画一个命令按钮，名称为Commandl。
单击命令按钮时，执行如下事件过
程：
PrlVateSubCommandl-C1icko
a$="
softwareandhardware"
b$＝Right（a$,8）
c$=Mid（a$,1，8）
Msgboxa$,,b$,c$,1
EndSub则在弹出的信息框的标题栏中显示的信息是（hardwafe）
5为了清除列表框中的所有内容，应使用的方法是（Clear）
程序填空
1.下列程序是判断一个整数（>
=3）是否为素数，请补充完整。
DimnAsInteger
n=InputBox（"
请输入一个整数（>
=3）"
k=Int（Sqr（n））
i=2
swit=0
Whilei<
=kAndswit=0
IfnModi=0Then
__1__Else：
参考答案1.swit=02.swit=1
__2__
EndIf
Ifswit=0Then
Printn;
是一个素数。
Else
不是一个素数。
EndIf
2.下面程序是用来打印九九乘法表的，请补充完整。
DimiAsInteger,jAsInteger,Str1$
Str1="
Forj=1To9
If__1__Then
Str1=Str1+Str$（j）+"
×
+Str$（i）+"
="
+Str$（Val（ij））
Str1=Str1&
Chr（13）__2__EndIf
Nextj
PrintStr1参考答案1：
j<
=I2：
j>
i
3.下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
SubPR（）
Randomize
Dima（10）
Forj=1To10
a（i）=Int（__1__）
If__2__Thenk=k+1
Printa（j）
Nextj
Print
Printk/10
EndSub参考答案1：
（99*Rnd）+12：
a（j）Mod5=0
4.以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。
请补充完整下列程序段。
Dimx,amax,aminAsSingle
x=InputBox（"
Enterascore"
amax=x
amin=x
DoWhile__1__
Ifx>
amaxThen
If__2__Then
enterascore"
Loop
Print"
max="
;
amax,"
min="
升级会员 