一、1.ABCD 2.C 3.ABD 4.BCD 5.A
6. BC7.ACD 8.ABD 9.ABCD 10.ABD
二、1．32 2.设计、运行和中断 3.视图 4.四个5.255 254 6.查看代码 查看对象 切换文件夹7.定位 8.F19.选项——编辑器格式 10.语法错误
习题二
一、1.ABD2.ABC 3.ABD 4.ABCD 5.AD6.ABCD7.ABCD 8.AC 9.BD10.D11.ABCD 12.ABC 13.ABD14.ABC15.BD16.CD 17.AD 18.AD 19.BD 20.ABD
二、1.属性、方法、事件 2.Ctrl 3.Name 属性窗口4.Visible False 5.Enabled 6.LoadPicture Picture
7.LoadResize Unload 8.Hide Unload 9.SetFocus 10.Alignment 211.Tooltiptext 12.Style 1 13.Cancel Default 14.MaxLength 6553515.Passwordchar 16.标准、窗体、类 17. frm vbp bas vbg18.程序代码 变量定义和公用过程 19.Form1MyForm 20.工程1 MyProject
习题三
一、1.B2.AD 3.D4.ABCD 5.B 6.BDC 7.ABD 8.ABD 9.AC 10.AB11.D 12.ABC13.AC 14.C 15.D 16.AB17.BD18.CD 19.ABD 20.A
二、1. 7,15 2、option explict 3、2 4、2 5、1.5
6、3015，510307、true 8、true9、3 11、-7
12、int(rnd*60+20)13、5 14、程序 19、Hello,to!
习题四
一、1.AD 2.AD 3.ABC 4.AB 5.BD 6.ABC 7.AC 8.AC 9.C 10.BD
二、1. 2.5 5 2. 6 5 3. 20 4.25 5. 6 4 6. -1 4 7. 3103 8.(2,4,6…)死循环 9. x>8(X=10) 10.n+(n+1)/2+(n+2)/3+…
习题五
一、1.BC 2.BCD 3.AC 4.ABCD5.ABCD6.BCD 7.ACD 8.AC 9.AB 10.ABD
二、1. 0Option Base 1 2.Lbound Ubound 3. x=Array() 4、 5， 115、 600，60 6、 3，8 7、 3 8、 5
9、 1510、Min=X(1)X(i)<Min
习题六
一、1.BCD2.ABC 3.AD 4.BC 5.AB 6.AB 7.BC 8.ABCD 9.A 10.C11.A12.ABD13.AB 14.AB 15.B
二、1、事件 2、Dim , Static 3、12，5 4、12，5 5、1.5，26、13，137、98、30 9、710、30 11、5，0；10，5；15，10 12、BCD234 CD23 13、10 14、Sum=Sum+x() SumAll=Sum SumAll(10) 15、 Call DTOH(n) Msgbox”目标超出范围！”
习题七
一、1.BD 2.ABC 3.A 4.A 5.C 6.AB7.ABD 8.BD 9.D 10.B
二、1、 1，两 2、打开、读写、关闭 3、Random 4、VB程序设计 5、EOF(10)=TRUE|FALSE6、FreeFile7、LOF(10)/LEN()
习题八
一、1.ABCD 2.AC 3.B 4.CD5.BCD 6.BC7.AB 8.BCD 9.AC10.BD 11.C12.ABD13.BC 14.A15.BC 16.C17.ABC18.BD 19.CD 20.BC
二、1、Picture1.Picture=Loadpicture(“Rose.bmp”) 2、Stretch True 3、Scroll Change4、ActiveX5、true； 2 6、Alignment 17、Text1.Listindex 8、List1.ListcountSelected(i) I9、Item0,Item3,Item4 20、驱动器和目录列表框的Change11、文件名 12、Action 13、盘符、路径、文件名文件名 14、*.bmp16、Color15、Cd1.DefaultExt=”bmp”17、Flags 1，2或3 18、Flags 19、Flags 256 20、Flags + &
习题九
一、1.ACD 2.AC 3.D 4.AD 5.ABC 6.AB7.ADC
二、1、—— 2、&3、Visible TrueEnabledFalseCheeked True 4、NameIndex5、顶层（第一层）、5、6 6、IF Button=2 Then Popupmenu mnuColor
7、IF Button=2 Then Popupmenu mnuColor ，，500，1000
Private Sub ni_Click()End Sub
Public Function GetHLS(A() As Integer) As Double
If UBound(A) = 1 Then
GetHLS = A(0, 0) * A(1, 1) - A(0, 1) * A(1, 0)
End If
If UBound(A) > 1 Then
Dim RRes As Double
Dim LRes As Double
Dim CNum As Integer
Dim TNum As Double
Dim i As Integer
RRes = 0
LRes = 0
For i = 0 To UBound(A)
CNum = i
TNum = 1
If i = 0 Then
For j = 0 To UBound(A)
TNum = TNum * A(j, j)
Next j
End If
If i > 0 Then
Call YD(i)
For j = 0 To UBound(A)
TNum = TNum * A(j, cc(j))
Next j
End If
RRes = RRes + TNum
Next i
For i = 0 To UBound(A)
CNum = i
TNum = 1
If i = 0 Then
For j = 0 To UBound(A)
TNum = TNum * A(j, UBound(A) - j)
Next j
End If
If i > 0 Then
Call YD(i)
For j = 0 To UBound(A)
TNum = TNum * A(UBound(A) - j, cc(j))
Next j
End If
LRes = LRes + TNum
Next i
GetHLS = RRes - LRes
End If
End Function
Public Sub YD(N As Integer)
Dim n1 As Integer
n1 = UBound(aa)
ReDim bb(n1)
ReDim cc(n1)
For i = 0 To n1 - N
bb(i) = aa(N + i)
Next
For i = 0 To n1 - N
cc(i) = bb(i)
Next
For i = n1 - N + 1 To n1
cc(i) = aa(i - n1 + N - 1)
Next
End Sub
1．工程文件的扩展名为 。A、.frx B、.bas C、.vbp D、.frm
c
2．以下4个选项中，属性窗口未包含的是 。
A、对象列表 B、工具箱 C、属性列表 D、信息栏
???b???
3．下列不属于对象的基本特征的是 。
A、属性 B、方法 C、事件 D、函数
d
4．在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是 。
A、项目（工程）窗口 B、工具箱 C、代码窗口 D、属性窗口
c
5．Visual Basic中“程序运行”允许使用的快捷键是 。
A、F2 B、F5 C、Alt+F3 D、F8
d
6．改变控件在窗体中的上下位置应修改该控件的 属性。
A、Top B、Left C、Width D、Right
a
7．窗体模块的扩展名为 。
A、.exe B、.bas C、.frx D、.frm
d
8．窗体的FontName属性的缺省值是 。
A、宋体 B、仿宋体 C、楷体 D、黑体
???@#$!$%@!$@$@$
9．FontSize属性用以设置字体大小，窗体的FontSize属性缺省值为 。
A、5 B、9 C、12 D、16
c?
10．在Visual Basic中，称对象的数据为 。
A、属性 B、方法 C、事件 D、封装
a
11．下列选项中不属于事件的是 。
A、Dblclick B、Load C、Show D、KeyUp
c
12．将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件 。
A、.doc与.txt B、.com与.exe C、.bat与.frm D、.vbp与.frm
d
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）