VB程序设计作业参考答案

《VB程序设计作业参考答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计《VB程序设计》作业参考答案一．选择题1－5ABCCB6—10CCADC11－15ABCDB15－20CDACB21－25DBDCC25－30DACAA31－35DACAA36－40BCCCD41－45CCCAC46－50DDBAD51－55ACACD56－60BCADA61－65BAADB66－70DBDAC71－75BBBAD76—80CDABC81-85ABCDC86-90BAADD91-95CBBAD96.B二．填空题(1)E(2)程序代码　(3)CmdDisplay.Visible=False　(4)t=a(j)　　(5)And(6)回车符　(7)text

2、2.setfocus(8)3　(9)D=B:B=C:C=D(10)Random　（11）事件过程(12)打开对话框(13)3(14)a(i,j)=0(15)L1.text(16)Put#(17)True(18)IMOD4=0(19)AaBbCc（20）INT(Rnd*100)；arr（21）Output；Write#1,StuNo,StuName,StuEng(22)10(23)4(24)顺序，随机(25)INPUT,OUTPUT,APPEND（26）程序代码窗口的字符过大或过小，可以通过（工具→选项→编辑器格式→大小）去改变。（27）窗体、控件、对象（28）界面设计（29）对

3、象、代码（30）窗体、标准模块、类模块、工程（31）窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug)（32）ED（33）81（34）程序，数据（35）窗体、控件、对象（36）对象、代码（37）用户界面的窗体、执行具体操作的代码。（38）Picture属性、剪切板把图形粘贴三．编程题1.OptionBase1PrivateSubForm_click()Dima(3)AsInteger,mAsIntegerDoWhilem<>-1Andi<3m=InputBox("请输入第"&i+1&"条边")i=i+1a(i)=mIfa(i)<0

4、ThenMsgBox"输入错误，请重新输入！"i=i-1EndIfLoopIfa(1)+a(2)>a(3)AndAbs(a(1)-a(2))

5、,78,80)Dimc(8)Fori=1To8c(i)=a(i)+b(i)Printc(i);NextiEndSub　3.PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Printspc(3);Chr$(KeyCode);spc(3);Hex$(KeyCode);spc(3);Oct$(KeyCode);spc(3);KeyCodeEndSubPrivateSubForm_Load()PrintShow第5页共5页VB程序设计Printspc(3);"按键";spc(3);"16进制";spc(3);"8进制";sp

6、c(3);"10进制"PrintEndSub4.Dima(3)AsLong,sAsLong,pAsLong'通用-声明SubSu(nAsLong)'通用subp=1Fori=1Tonp=p*iNextiEndSubFunctionF(nAsLong)AsLong'通用Functionp=1Fori=1Tonp=p*iNextiF=pEndFunctionPrivateSubCommand1_Click()s=0Fori=1To3a(i)=InputBox("请输入第"&i&"个数的值:")CallSu(a(i))s=s+pNextiPrint"用Sub过程求得";a(1);"!

7、+";a(2);"!+";a(3);"!=";sEndSubPrivateSubCommand2_Click()s=0Fori=1To3a(i)=InputBox("请输入第"&i&"个数的值:")s=s+F(a(i))NextiPrint"用Function过程求得";a(1);"!+";a(2);"!+";a(3);"!=";sEndSubPrivateSubCommand3_Click()第5页共5页VB程序设计EndEndSub5.如下图，在窗体上画一个图片框，一个文本框，再画两个标