资源描述：
《vb自编程序阅读题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、省二级VB考试复习资料一、程序阅读题(每题5分，共15分)1、写出单击窗体四次，第一次输入1，第二次输入2，第三次输入3，第四次输入4，窗体上显示的结果。PrivateSubForm_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox("请输入一个正整数="))IfxMod2=0Thens=s*xElses=s+xEndIfMe.Print"s="+Str(s)EndSub2、设输入的数据分别为14，3，125，21时，标签框Label1.Caption的值分别是多少?PrivateSubFormClic
2、k()DimaAsIntegera=Val(InputBox(“请输入数据”，100))SelectCaseaMod5CaseIs<4w=a+10CaseIs<2w=a*2CaseElsew=a-10EndSelectLabel1.Caption=“w=”&Str(w)EndSub3、写出程序执行的结果PrivateSubform_click()DimSAsStringDimkAsInteger,nAsIntegerS="ABCDE"n=Len(S)Fork=nTo1Step-1S=S+Mid(S,k,1)PrintTab(n-k+1);PrintMid
3、(S,n-k+1,1)NextkPrintRight(S,n)EndSub4、程序运行时单击Command1后，分别写出文本框Text1、Text2和Text3的Text值。23省二级VB考试复习资料PrivateSubCommand1_Click()n=0:x=1:y=0DoWhilex<20n=n+1y=x+yx=x*(x+1)LoopText1.Text="n="&Str(n)Text2.Text="x="&Str(x)Text3.Text="y="&Str(y)EndSub1、写出程序的执行结果privatesubform_click()dimx
4、asstringdimIasinteger,nasintegerx="ABCDEFG"n=len(x)Fori=nto1step-2x=x+mid(x,i,1)Printmid(x,i,1);NextiPrintPrintxendsub2、程序如下PrivatesubForm_Click()n=inputbox(“n=”)k=10:j=1fori=1tonprintspace(k);string(j,trim(str(i)))ifi<=n2thenk=k–1:j=j+2elsek=k+1:j=j-2endifnextiendsub分别写出当输入n的值分
5、别为2，3，4的运行结果。3、写出点击按钮command1后，显示在窗体上的内容。privatesubcommand1_click()dimk,jasinteger23省二级VB考试复习资料fork=1to5printspace(5-k);forj=1tok*2-1printchr(asc(“C”)+j);nextjprintnextkendsub1、写出程序运行时单击窗体后，Form1上输出的结果PrivateSubForm_Click()ClsFori=1To8Ifi<=2ThenPrintTab(10);"VVV"ElsePrintTab(3+i)
6、;Forj=1To17-2*iPrint"V";NextjPrintEndIfNextiEndSub2、写出点击窗体后，显示在窗体上的内容。Privatesubform_click()Callprintdlt(5)EndsubPrivateSubprintdlt(nasinteger)Dimkasintegerfork=1tonprintspace(n-k);forj=1to2*k-1print“*”;nextjprintnextkfork=1ton-1printspace(k);forj=1to2*n-2*k-1print“*”;nextjprint2
7、3省二级VB考试复习资料nextkendsub1、写出程序执行的结果OptionBase1PrivateSubForm_Click()Dima(5,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To5Forj=1To5Ifj<=iThena(i,j)=1EndIfPrinta(i,j);"";NextjprintNextiEndsub2、写出下列程序运行时，单击窗体后窗体上显示的内容。subprnt(b()asstring*1,nasinteger)dimiasintegerfori=1tonprintb(i);nex
8、tiprintendsubprivatesubform_click()dima(
