高中信息技術(shù)會考vb選修操作題答案-資料下載頁
2025-06-01 01:39本頁面
【正文】 Dim y As singleX=val()Y=Abs(3*x5)=yEnd Sub第五套第15題完善“判斷”按扭的click程序，使當(dāng)從Text1中輸入一個數(shù)時，當(dāng)該數(shù)大于或等于60時在lable1中顯示“及格”，該數(shù)小于60時在lable1中顯示“不及格”。Private Sub Command_Click() Dim a As Single ‘定義變量a a=val() ‘從Text1中讀入這個數(shù)，并保存在變量a中 If a=60 Then=”及格” Endif If a60 Then=”不及格” EndifEnd Sub第16題請將按扭“計算1+2+…+100”的Click事件程序中的“常量”和“變量”換成正確的“常量”和“變量”，當(dāng)單擊命令按扭時Text1顯示1+2+…+100的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a= 0 For i=1 to 100 a=a+i next i = a end sub第17題對窗體Form1進(jìn)行如下修改： 在窗體中增加一個標(biāo)簽； 設(shè)置標(biāo)簽的對齊方式為“居中對齊”；（做法：選中標(biāo)簽→將其屬性欄中的“Alignment”屬性值選擇為“2center”） 完善“顯示”按扭程序，使當(dāng)單擊該按扭時標(biāo)簽標(biāo)題改為“算法與程序設(shè)計”；Private Sub Command1_Click()=”算法與程序設(shè)計”End sub第18題在已打開的窗體Form1中，在窗體中增加一個文本框text3。再完成按扭中的程序設(shè)計，使當(dāng)單擊“計算” 按扭時，計算b*b4ac的值，并在text3中顯示出來。Private Sub Command_Click() Dim a As Single Dim b As Single Dim c As Single Dim x As Single a=1 b=val()c=val()x=b*b4*a*c = x End sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1