vb期末考試、程序設計題

第一張：

4.設計一個程序，實現(xiàn)加、減、乘、除運算，當單擊“加法”命令按鈕時，程序運行界面如圖2.20所示。同樣，單擊其他命令按鈕時，實現(xiàn)其他運算，等式中的運算符號要相應變化。代碼如下：PrivateSubCommand1_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSub

PrivateSubCommand2_Click()Text3.Text=Val(Text1.Text)-Val(Text2.Text)Label1.Caption="-"EndSub

PrivateSubCommand3_Click()Text3.Text=Val(Text1.Text)*Val(Text2.Text)Label1.Caption="*"EndSub

PrivateSubCommand4_Click()Text3.Text=Val(Text1.Text)/Val(Text2.Text)Label1.Caption="÷"EndSub第三章：3.計算下列分段函數(shù)值：方法1)privatesubcommand1_click()DimxAssingle,yAssingleX=val(Text1.Text)Ifx.<5andx>=-5ThenY=x/2+(x*x+5)/(2*x)Elseifx<10ThenY=(3*x)^(1/3)Elseifx<=15ThenY=log(x)ElseY=sin(x)^2+cos(x)EndifText2.Text=str(y)Endsub第四章：1.將一個數(shù)組的元素按逆序重新存放，例如，原來存放順序為：8,6,5,4,1。要求改為1,4,5,6,8。OptionBase1PrivateSubForm_Click()Dima()DimtAsIntegera=Array(8,6,5,4,1)FontSize=24Fori=1To5

Print"a(";i;")=";a(i)NextiFori=1To5\2

t=a(i)

a(i)=a(6-i)

a(6-i)=tNextiPrint"逆序后"Fori=1To5

Print"a(";i;")=";a(i)NextiEndSub2..利用隨機函數(shù)，模擬投幣結果。設共投幣100次，求“兩個正面”、“兩個反面”、“一正一反”3種情況各出現(xiàn)多少次？PrivateSubForm_Click()Dima(3)AsInteger,xAsInteger,yAsIntegera(1)=0a(2)=0a(3)=0Fori=1To100

Randomize

x=Int(2*Rnd)

y=Int(2*Rnd)

Ifx=0Andy=0Then'兩個正面

a(1)=a(1)+1

ElseIfx=1Andy=1Then'兩個反面

a(2)=a(2)+1

Else

'一正一反

a(3)=a(3)+1

EndIfNextiFontSize=24Print"兩個正面的次數(shù)";a(1)Print"兩個反面的次數(shù)";a(2)Print"一正一反的次數(shù)";a(3)PrintEndSub第六章：1.設計一個選課程序，其運行界面如圖7.20所示。課程有兩組：一是限選課，3門課中只能選一門；二是任選課，可以選多門。選課后，單擊“確認”按鈕，在右邊的文本框中顯示選課結果。PrivateSubCommand1_Click()IfOption1.Value=TrueThen

Text1.Text=Option1.CaptionElseIfOption2.Value=TrueThen

Text1.Text=Option2.CaptionElse:Text1.Text=Option3.CaptionEndIfIfCheck1.Value=1Then

Text1.Text=Text1.Text+vbCrLf+Check1.CaptionEndIfIfCheck2.Value=1Then

Text1.Text=Text1.Text+vbCrLf+Check2.CaptionEndIfIfCheck3.Value=1ThenText1.Text=Text1.Text+vbCrLf+Check3.CaptionEndIfEndSub3.設計一個系統(tǒng)主窗體，其運行界面如圖7.22所示，其中的“圖書管理信息系統(tǒng)”字樣從右到左緩緩地循環(huán)移動，窗體背景圖案可以任意指定。PrivateSubForm_Load()

Form1.Picture=LoadPicture("c:\tupian\sky.jpg")

Label1.Caption="圖書管理系統(tǒng)"

Label1.FontName="隸書"

Label1.ForeColor=vbBlue

Label1.FontSize=30

Label1.FontItalic=True

Label1.BackStyle=0

Timer1.Interval=100EndSubPrivateSubTimer1_Timer()

IfLabel1.Left<=Form1.WidthThen

Label1.Left=Label1.Left+200

Else

Label1.Left=-3000

EndIf

EndSub4.設計一個窗體，其運行界面如圖7.23所示。窗口中有圖像框、一個滾動條和一個文本框。滾動條變化范圍是0～10，當單擊滾動條時，圖像框中圖片的大小隨之發(fā)生改變，且在文本框中顯示滾動條的數(shù)值。圖像框image1名稱為im滾動條名稱為hPrivateSubForm_Load()Im.Stretch=TrueH.Max=10H.Min=0Im.Picture=LoadPicture("c:\1.jpg")EndSubPrivateSubH_Cha