vb题解Word下载.docx
《vb题解Word下载.docx》由会员分享，可在线阅读，更多相关《vb题解Word下载.docx（7页珍藏版）》请在冰豆网上搜索。
8.Winsock控件的LocalPort属性的作用是（）
A.仅返回所用端口B.返回或设置所用端口
C.仅设置所用端口D.返回或设置IP地址
9.Winsock控件的LocalIP属性的作用是（）
A.返回本地计算机的名称
B.返回或者设置所用的端口
C.返回远程机器的IP地址
D.返回本地计算机的IP地址
10.DimA（5,5）AsInteger定义的数组包含的元素个数是（）
A.25B.36
C.30D.动态变化
11.要清除List列表框控件中的所有项目,可采用的方法是（）
A.ClearB.Erase
C.ClickD.Delete
12.如果希望以模态方式显示窗体Form1,下列正确的语句是（）
A.Form1.Show0
B.Form1.Show
C.Form1.Show1
D.以下都不正确
13.如果准备向随机文件中写入数据,正确的语句是（）
A.Print#1,recB.Write#1,rec
C.Put#1,,recD.Get#1,rec
14.在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则应使用（）关键字在过程中定义局部变量.
A.DimB.Public
C.PrivateD.Static
15.在过程定义中用（）表示形参的传值.
A.VarB.ByDef
C.ByValD.Value
16.将数据项"
China"
添加到列表框（List1）中成为地一项,应使用的语句是（）
A.List1.AddItem"
0B.List1.AddItem"
1
C.List1.AddItem"
D.List1.AddItem"
1,China"
17.引用列表框（List1）最后一个数据项应使用的语句是（）
A.List1.List（List1.ListCount）B.List1.List（List1.ListCount-1）
C.List1.List（ListCount）D.List1.List（ListCount-1）
18.可用来改变坐标度量单位的是（）
A.Drawstyle属性B.DrawWidth属性
C.Scale方法D.ScaleMode属性
19.要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮,通过设置可达到此要求的属性是（）
A.MaxButtonB.MinButton
C.WidthD.BorderStyle
20.数学关系8≤y<
28表示成正确的VB表达式为（）
A,8<
=y<
28B,8<
=yAND<
28
C,8<
=yANDy<
28D,8<
=yORy3Then
c=c+4
ExitFor
Else
k=k+1
EndIf
Nextj
Printc,k
EndSub
写出程序运行时单击窗体后,c,k的值分别是:
2.
PrivateSubForm_Click（）
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Form1.Print"
x="
;
x,"
y="
y
EndSubEndSub
写出程序运行时连续单击三次窗体后,Form1上的输出结果.
3.
PrivateSubCommand1_Click（）
DimsAsDouble
DimiAsInteger
s=5
i=1
DoWhilei<
9
i=i+2
s=s+i
Loop
Text1.Text=s
文件框Text1的输出结果是:
4.
DimIasinteger,jasinteger
Dimcasinteger
c=0
Fori=1To3
Forj=1to3
c=c+1
NextI
Printc
写出程序运行时单击窗体后,c的输出结果:
5.
FunctionF（aAsInteger）
b=0
Staticc
b=b+1
c=c+2
F=a+b+c
EndFunction
DimaAsInteger
a=2
PrintF（a）
Nexti
写出程序运行时,单击命令按钮在窗体上的输出结果.
6.
DimA（1To5）AsInteger
Fori=1To5
A（i）=i
DoWhilex<
3
A（i）=A（i）+x
x=x+1
i=i+1
Text1.Text=A
（1）
Text2.Text=A
（2）
7.
SubChange（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
Printx,y
DimaAsInteger,bAsInteger
a=10:
b=20
Changea,b
Printa,b
写出程序运行时单击窗体后,Form1上的输出结果.
四,完善程序题
1.列表框应用程序.要求在文本框Text1中输入课程名称,然后按"
添加"
按钮,把课程名称添加到列表框中;
当选择列表框中某一项后,按"
删除"
按钮,则从列表框中删除该项;
按"
统计"
按钮,在文本框Text2中输出课程数量总数;
结束"
按纽,退出应用程序.程序运行结果如图1所示.
图1
程序如下,请补充完整.
PrivateSubForm_Load（）
List1.AddItem"
计算机应用基础"
程序设计基础"
软件技术基础"
VisualBasic程序设计"
SQLSERVER数据库应用"
计算机专业英语"
Delphi程序设计"
IfText1.Text"
"
Then
<
1>
Text1.Text=<
2>
MsgBox"
请在文本框中输入信息!
3>
PrivateSubCommand2_Click（）
List1.RemoveItem<
4>
PrivateSubCommand3_Click（）
Text2.Text=<
5>
PrivateSubCommand4_Click（）
UnloadMe
函数图形程序.用Pset方法在图形框Picture1内绘制y=Sinx在-π到π之间的图形.运行结果如图8所示.
程序如下,请补充完整:
Picture1.Scale（-4,2）-（4,-2）'
定义坐标系
Picture1.Line（-4,0）-（4,0）'
画x轴
'
画y轴
Picture1.CurrentX=0.2'
设置原点横坐标
Picture1.CurrentY=-0.1'
设置原点纵坐标
标记原点
Picture1.CurrentX=-3.2
Picture1.CurrentY=-0.1
Picture1.Print"
-π"
标记"
Picture1.CurrentX=3.3
π"
Picture1.CurrentX=0.2
Picture1.CurrentY=0.9
1"
Picture1.CurrentY=-0.8
-1"
Fori=<
Step0.001
Picture1.PSet（<
）
五,编程题
编写一程序,要求单击"
开始"
按钮（Command1）,在列表框（List1）中输出200~300之间不能被5整除的数,单击清除按钮（Command2）,清除文本框中的全部内容.程序运行结果如图所示.
注:
其它类型的完善程序题和编程题,请参考上学期网上复习要点及练习.
练习题答案答案
一,单项选择题
1.B2.D3.C4.B5.D6.C7.A8.B9.D10.B11.A
12.C13.C14.D15.C16.A17.B18.D19.D20.C
21.D22.B23.A24.B25.B26.C27.B28.A29.B30.C
31.C32.A33.D
二,填空题
1.设计界面
2.F1
3.open"
D:
\text.dat"
ForOutputAs#1
4.5^（1/2）*sin（30*3.14/180）,或者Sqr（5）*sin（30*3.14/180）
5.True
6.本地计算机的IP地址返回或设置远程计算机的名称
7.右上
8.Connection
9.ActiveConnection
10.本地数据库远程数据库
11.ADOrsOpen"
Select*FromTable1"
12.选择结构循环结构顺序结构
13.15000
14.实时错误逻辑错误
15.Time
16.Circle（ScaleWidth/2,ScaleHeight/2）,800
17.NameIndex
18.DAORDOADO
19.顺序文件随机文件二进制文件
20.TimerIntervalms
三,阅读程序题
1.
53
x=2y=3
x=2y=6
x=2y=9
29
9
5
7
6.
13
2010
1020
List1.AddItemText1.Text
EndIf
List1.ListIndex
List1.ListCount
Picture1.Line（0,2）-（0,-2）
Picture1.Print"
0"
-3.141To3.141Step0.001
i,Sin（i）
End
x=200
DoUntilx>
300
IfxMod50Then
List1.AddItemx
List1.Clear
升级会员 