VB考试复习资料答案最终.docx

1、VB考试复习资料答案最终一、填空题1、“#” （ 井字符号）2、窗体窗口;属性窗口;代码窗口3、对象属性的设置;程序运行和调试程序;保存文件4、Visible5、属性;事件;方法6、设计模式;运行模式;中断模式7、6008、Enabled;False9、Locked;True10、AutoSize;True11、DIM Ch5 As String*812、LOAD;UNLOAD13、SHOW;HIDE14、顺序结构;分支选择结构;循环结构15、1;016、局部变量;窗体模块变量;全局变量17、属性窗口;程序代码18、常量;已赋值的19、INT(RND*101+100) 20、421、ASCII

2、22、2523、TRUE24、Case25、标准EXE程序26、227、 “-”28、循环次数=INT(终值初值)/步长129、F430、双引号31、text1.Setfocus32、picture1.picture=loadpicture(c:pic2.gif)33、preserve34、235、滚动条36、MDIChild;true37、静态数组;动态数组38、COS(2*3.14)339、 FALSE40、 2001-6-141、 shift键;ctrl键;Alt键42、左键;右键;中键43、方法44、MsgBox,inputBox45、Print,pset,line46、Loadpic

3、ture,使控件自动按照图象大小进行调整47、Call beeps(5),beeps 548、Popupmenu49、组合框50、True ，1或checked51、窗体模块,标准模块,类模块52、整型（Integer）,长整型（Long）,字符型（String）,日期型（Date）,字节型（Byte），逻辑型（Boolean）53、工程,窗体,标准模块54、对象,事件驱动的55、 “” “” “：”56、Integer %57、Enabled False58、clear59、LargeChange60、选中61、CTRL;SHIFT62、预定义的对话框;通用对话框;用户自定义对话框63、对象

4、的数据,对象能执行的动作64、Option explict65、Timer66、ASCII 口口ASCII ASCII口口口67、ScaleHeight ScaleWidth68、op，eft，eight，idth69、相对70、5,459.4071、25572、一个表示文件指针 字节数73、整型,长整型,单精度型,双精度型74、控件名,事件名75、对象的标题,对象的名称,字体76、可插入对象77、ADO技术78、selstart79、事件80、 end81、较小82、数组83、无限循环 死循环 永真循环84、Text;空白85、false86、False87、ASCII码88、窗体属性,事件

5、过程,事件89、MultiLine90、091、窗体名92、属性窗口，程序代码93、0，094、学习版专业版企业版95、驱动器列表框、目录列表框、文件列表框96、FreeFile函数97、AddItem RemoveItem98、FileCopy Kill99、ASCII;二进制文件100、顺序访问模式、随机访问模式、二进制访问模式二、选择题15 CCDCD 610 DCABC1115 BDAAA 1620 BBACB2125 DBACC 2630 CBCCC3135 ABDCC 3640 CDCAC4145 ABBDD 4650 CACBD5155 DAACD 5660 BDDDB6165

6、DDCBB 6670 BDBBC7175 BABCC 7680 BADAC8185 CBDBB 8690 DBCAA9195 ACAAD 96100 BBCAC101105 CCCAD 106110 CCBAD111115 DADAB 116120 B无ABD121125 DBACC 126130 DCCCD131135 ABDCA 136140 BDAAC141145 CDBAB 146150 ADBCA151155 BBDCC 156160 CCBBC161165 CABCC 166170 BBBCC171175 DBDBA 176180 DCCCC181185 ADABD 186190

7、BCABA191195 DCDAC 196200 ACCDA三、程序填空1. Case else：Form1.caption=”other”2. dim kk(0 to 9) as integer kk(i)=1 next i3. hide show 4. i=2 0 sum=sum+i5. N N-i+1或N+1-i6. 1 To 9 i+1 To 10 =7.n mod 3=1 and n mod 5=1 and n mod 7=1 Until CountN = 5或While CountN Max N=0 xamin18. List1_DblClick List1.Text或List1.

8、list(listIndex)19. imin=i a(j) 20027. (-1) (K + 1) / K Form1.Print 4 * S28. M = 1 S+M或M+S（题目中S和M的数据类型应改为定义成双精度：dim s#,m#）29. And30. K*10+M或10*k+M或M+10*k或m+K*10 Form1.Print S31. 题目有错32. P = 1200000000 N=N+133. bc34. n=m n=11-m m=1 To 1035. a0 delta0 a=031更正代码：Dim Y(1 To 11) For i = 1 To 10 Y(i) = Val

9、(InputBox(请输入Y(i):) Next i x = Val(InputBox(请输入x:) For i = 10 To 1 Step -1 If x b Then t = a: a = b: b = t If b c Then t = b: b = c: c = t If a c Then t = a: a = c: c = t End IfEnd IfPrint (三个数由小到大顺序是：)Print a; , & b; , & cEnd SubPrivate Sub Form_Load()MsgBox (请你单击窗体再输入的三个数！)End Sub2、 输入10个学生记录（每个记录

10、包括学号、成绩），组成记录类型数组，统计出平均成绩，及成绩最低的学生的学号和成绩。Dim k() As SinglePrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Dim a As SingleDim i As IntegerDim j As IntegerDim min As SingleReDim k(1, 1) min = k(0, 0) For i = 0 To 1 For j = 0 To 1 a = InputBox(请你输入学号：) b = InputBox(请你输入成绩：) Text1 = a

11、txxt2 = b k(i, j) = a & b Next j Next i For i = 0 To 1 For j = 0 To 1 Print k(i, j) Next j Next iEnd Sub3、写一程序将一个数插入到已经有序（设从小到大排序）的数组中，使数组还继续保持有序。假设原数组中的数为-12，-4，10，23，68。Dim a() As IntegerPrivate Sub Form_Load()ReDim a(0 To 4)a(0) = -12a(1) = -4a(2) = 10a(3) = 23a(4) = 68ShowPrint 原来数组中的数据：For i =

12、0 To 4Print a(i); ;Next iPrintt = InputBox(请输入要插入的数:)n = UBound(a)ReDim Preserve a(n + 1)For i = 0 To n If a(i) t Then Exit ForNext iIf i n + 1 Then a(n + 1) = tElse For k = n + 1 To i + 1 Step -1 a(k) = a(k - 1) Next k a(i) = tEnd IfPrint 插入一个数后：For i = 0 To n + 1 Print a(i); ;Next iEnd Sub4、求两个数m和

13、n的最大公约数和最小公倍数，要求用一个函数过程来实现。Dim d As IntegerPrivate Sub Command1_Click() Dim m As Integer, n As Integer m = Text1.Text n = Text2.Text If m n Then t = m: m = n: n = t End If Label5.Caption = gcd(m, n) Label6.Caption = dEnd SubPublic Function gcd(a As Integer, b As Integer) As Integer If a Mod b = 0 Th

14、en gcd = b Else gcd = gcd(b, a Mod b) End If c = gcd d = (a * b) / cEnd Function5、有一个数列，它的头三项是0，0，1，以后每个数都是其前三个数的和。编程在窗体上每行输出5个数，输出此数列，直到最后一个数超过1010为止。Private Sub Form_click()Dim a%, b%, c%a = 0b = 0c = 1Print a, b, c,i = 3Dot = a + b + ci = i + 1Print t,a = bb = cc = tIf i Mod 5 = 0 Then PrintLoop

15、While t max Then max = a(i): imax = iIf a(i) min Then min = a(i): imin = iNext iaver = sum / 100Label1 = 最大值是： & max & 最小值是： & min & 平均值是： & averEnd Sub8、编写程序，求S=A！+B！+C！。阶乘的计算分别用SUB过程和FUNCTION过程两种方法来实现。Dim A, B, C As IntegerPrivate Sub form_load()Command1.Caption = 调用Function过程Command2.Caption = 调用

16、Sub过程End SubPrivate Sub Command1_Click()A = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)Picture1.PrintPicture1.Print 调用Function过程的输出结果为:;S = factF(A) + factF(B) + factF(C)Picture1.Print SEnd SubPrivate Sub Command2_Click()A = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)Picture1.Pri

17、ntPicture1.PrintPicture1.Print 调用Sub过程时的输出结果为:;Dim A1, B1, C1 As DoublefactS A, A1factS B, B1factS C, C1S = A1 + B1 + C1Picture1.Print SEnd SubSub factS(ByVal n As Integer, fac) fac = 1 For i = 1 To n fac = fac * i Next iEnd SubFunction factF(ByVal n As Integer) t = 1 For i = 1 To n t = t * i Next i

18、factF = tEnd Function9、把两个按升序（即从小到大）排列的数列a(1)，（2），、a(n)和b(1)、b(2)、b(m)，合并成一个仍为升序排列的新数列。Dim a(5) As Integer, b(5) As Integer, c(5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 0 To 5 a(i) = InputBox(请输入元素 & i & 的值)Next iEnd SubPrivate Sub Command2_Click()Dim i As Intege

19、rFor i = 0 To 5 t = i For j = i + 1 To 5 If a(j) a(t) Then t = j Next j If t j Then Min = a(i) a(i) = a(t) a(t) = Min End IfNext iFor i = 0 To 5 Picture1.Print a(i); Next Picture1.Print () For i = 0 To 5 t = i For j = i + 1 To 5 If b(j) b(t) Then t = j Next j If t j Then Min = b(i) b(i) = b(t) b(t)

20、= Min End IfNext iFor i = 0 To 5 Picture1.Print b(i); Next Picture1.PrintEnd SubPrivate Sub Command3_Click()For i = 0 To 5c(i) = a(i) + b(i)Next iFor i = 0 To 5 t = i For j = i + 1 To 5 If c(j) c(t) Then t = j Next j If t j Then Min = c(i) c(i) = c(t) c(t) = Min End IfNext iPicture1.ClsFor i = 0 To

21、5 Picture1.Print c(i); NextEnd SubPrivate Sub Command4_Click()Dim i As Integer, j As IntegerFor i = 0 To 5 b(i) = InputBox(请输入元素 & i & 的值)Next iEnd Sub10、编写一个函数，将一个十进制整数转换成2，8，16进制字符串。Private Sub Command1_Click()Dim m0 As Integer, r0 As Integer, i As Integerm0 = Val(Text1)r0 = Val(Text2)If r0 16 The

22、ni = MsgBox(输入的r进制数超出范围, vbRetryCancel) If i = vbRetry Then Text2 = Text2.SetFocus Else End End IfEnd IfLabel3 = 转换成 & r0 & 进制数Text3 = trandec(m0, r0)End SubFunction trandec(ByVal m%, ByVal r%)Dim strdtor$Dim mr%strdtor = Do While m 0mr = m Mod rm = m rIf mr = 10 Thenstrdtor = Chr(mr - 10 + 65) & strdtorElsestrdtor = mr & strdtorEnd IfLooptrandec = strdtorEnd Function11、编程序输出在指定范围内的3个随机函数，范围在文本框中输入。Private Sub Com