《可视化程序设计》作业参

一、选择题

1． A 2． A 3． B 4． D 5． C 6． C 7． C 8． D 9． C 10．B 11．B 12．A 13．B 14．B 15．D 16．C 17．A 18．B 19．B 20．D 21．C 22．A 23．B 24．B 二．填空题 1．9

2．Picturel.Picture = LoadPicture(\"picfile.jpg\") 3．SetFocus 4．－3 5．Resize 6．顺序访问方式 7．组合框

8．（1）毫秒 （2）Timer 9．强制声明变量 10．修改循环条件 11．退出（&Q）

12．程序中含有不正确的代码 13．.ocx

14．True True True 15．地址 16．（1）系统事件 （2）鼠标事件 （3）键盘事件 17．9

18．additem 19．66 20．false 21．2*3=6 22．good 23．1－511

24．Debug.print[表达式列表] 25．Load

26．（1）单文档窗体 （2）单文档窗体 27．（1）cls （2）move

28．（1）frame控件 （2）其它控件 29．可查入对象 30．函数有返回值 31．Action

第 1 页 共 4 页

以上仅为参，简答、论述题均只列及主要的解题知识点，请您结合自我理解和课本内容进行知识

掌握和巩固。如对答案等有疑义，请及时登录学院网站“辅导论坛”栏目，与老师交流探讨！

32．Text

33．（1）MDIChild、（2）True 34．index 35．300 36．3 37．过程 38．TabStop 39．Locked 40． ： 41．Stretch

三．判断题

1． 对 2． 对 3． 对 4． 对 5．对 6．对 7． 错 8． 对 9． 错 10．错 11．对 12．对 13．错 14．错 15．错 16．对 17．对 18．错 19．对 20．错 21．错 22．错 23．对 24．错

四．读程题 1．（1）showcolor 2．（1）0 （2）6

3．（1）Rnd （2）y=y+1 （3）x 4．110 5．4

6.（1） x<0 （2） x10.（1）sum=sum*i （2）next i 11．（1）i mod 3=0、（2）redim temp(n) 12．9

13.（1）command1.enabled=true （2）command1.enabled=false

五．编程题

1． Private sub form_active()

Dim textline as string

Open ”c:\\autoexec.bat” for input as #1 Do while not eof(1)

Input #1,textline

第 2 页 共 4 页

以上仅为参，简答、论述题均只列及主要的解题知识点，请您结合自我理解和课本内容进行知识

掌握和巩固。如对答案等有疑义，请及时登录学院网站“辅导论坛”栏目，与老师交流探讨！

Text1.text=text1.text+textline Loop Close #1 End sub

2． Sub sub1()

Dim sum As Integer Dim flag As Boolean Sum = 0 flag = True

For i = 10 To 50 For j = 2 To i - 1

If i Mod j = 0 Then flag = False

Exit For End If Next

If flag = True Then sum = sum + I Print i End If

flag = True Next

Print sum

End Sub

3． Function funname(n as integer)

if n=0 or n=1 then funname=1 else

funname=n*funname(n-1) end if end Function

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Chr(KeyAscii) = Chr(13) Or Chr(KeyAscii) = Chr(10) Then Print funname(text1.text) End If End Sub

窗体Form1 文本框 Text1

4． Dim x As Integer

第 3 页 共 4 页

以上仅为参，简答、论述题均只列及主要的解题知识点，请您结合自我理解和课本内容进行知识

掌握和巩固。如对答案等有疑义，请及时登录学院网站“辅导论坛”栏目，与老师交流探讨！

x = Val(InputBox(\"\")) If x > 0 Then

MsgBox (\"正数\") end If If x = 0 Then MsgBox (\"零\") End If If x < 0 Then

MsgBox (\"负数\") End If End Sub

第 4 页 共 4 页

以上仅为参，简答、论述题均只列及主要的解题知识点，请您结合自我理解和课本内容进行知识

掌握和巩固。如对答案等有疑义，请及时登录学院网站“辅导论坛”栏目，与老师交流探讨！