VB程序设计练习题参考答案.docx

PAGE

PAGE1

VB程序设计练习题参考答案

一、填空题

视图 工具箱

Style

3、Selstart4．Locked5．Tabindex 0

6．整型 长整型 单精度型 双精度型

7．(xmod10)*10+x\10

8．xmod5=0orxmod9=09．False

10．-4 3

11．CDEF

12．33

13．15

14．value15．Alignment16．Style17．enabled18．0

19．listcount-120．clear21．下拉式列表框

22．窗体模块、标准模块、类模块

23．15000

24．time或 time$25．Alt 下划线

连字符“－”

KeyPress、KeyDown、KeyUp28．MouseMove、MouseDown和MouseUp

二、选择题

1.A 2.C 3.B 4.C 5.A 6.C 7.B 8.D 9.A 10.D

11.B 12.D 13.B 14.A 15.B 16.D 17.B 18.B 19.C 20.A

21.D 22.B 23.A 24.D 25.B 26.B 27.C 28.B 29.C 30.B

31.A 32.C 33.C 34.A 35.D 36.A 37.B 38.D 39.C 40.D

41.A

42.C

43.A

44.D

45.A

46.D

47.D

48.B

49.C

50.B

51.B

52.B

53.C

54.A

55.D

56.D

57.C

58.B

59.D

60.C

61.D

62.C

63.A

64.C

65.B

66.B

67.C

68.A

69.B

70.D

71.D

72.D

73.D

74.D

75.D

76.B

三、程序填空

1．RND XMod5

2．19step3 nFactor(i) sum AsDouble 1 temp*i

min=b cmax

list1.additemi list1.listcount-1 list1.list(i)5．Fontsize Fontname

6．1 100 b/i

7．f3=f1+f2 i208．m=n r=mModn9．Inputbox a(i)a(j)

10．Isprimer(i+2) str(i) nModi tag=false Isprimer=tag

四、编写程序

PrivateSubCommand1_Click()Text1.Text=

Text2.Text=Text3.Text=

EndSub

PrivateSubCommand2_Click()UnloadMe

EndSub

PrivateSubText1_Change()Text2.Text=Text1.TextText2.FontSize=12Text3.Text=Text1.TextText3.FontSize=18

EndSub

PrivateSubOption1_Click()Form1.BackColor=RGB(255,0,0)

EndSub

PrivateSubOption2_Click()Form1.BackColor=RGB(0,0,255)

EndSub

PrivateSubOption1_Click(IndexAsInteger)SelectCaseIndex

Case0

Text1.FontSize=15

Case1

Text1.FontSize=20

Case2

Text1.FontSize=25EndSelect

EndSub

PrivateSubCommand1_Click()UnloadMe

EndSub

PrivateSubForm_Load()List1.AddItem北京List1.AddItem上海List1.AddItem天津List1.AddItem重庆List1.AddItem广东省List1.AddItem河南省List1.AddItem辽宁省List1.AddItem陕西省

EndSub

PrivateSubList1_Click()i=0

DoWhileiList1.ListCount

IfList1.Selected(i)=TrueThenList2.AddItemList1.List(i)List1.RemoveItemi

Else

i=i+1EndIf

LoopEndSub

PrivateSub