2009年9月計算機等考二級VB模擬題及解析(6)

　　(7) 完成下面的程序，使顯示結果如下圖所示。

　　Private Sub Form_Click()

　　FontSize=18

　　Sample$=" 【8】 "

　　x=(ScaleWidth-TextWidth(Sample$) ) /2

　　y=(ScaleHeight-TextHeight(Sample$) ) /2

　　CurrentX=x

　　CurrentY=y

　　【9】 Sample$

　　End Sub

　　正確答案: 1.(Welcome to Beijing !) 2.(Print)

　　(8) 下列程序的功能是：當x<50時，y=0.8×x;當50≤x≤100時，y=0.7×x;當x>100時，沒有意義。請?zhí)羁铡?/P>

　　Private Sub Command1_Click()

　　Dim x As Single

　　x=InputBox("請輸入x的值!")

　　【10】

　　Case Is < 50

　　y=0.8 * x

　　Case 50 To 100

　　y=0.7 * x

　　【11】

　　Print "輸入的數(shù)據(jù)出界!"

　　End Select

　　Print x, y

　　End Sub

　　正確答案: 1.(Select Case x) 2.(Case Else)