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

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

　　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) 下列程序的功能是：當(dāng)x<50時(shí)，y=0.8×x;當(dāng)50≤x≤100時(shí)，y=0.7×x;當(dāng)x>100時(shí)，沒有意義。請(qǐng)?zhí)羁铡?/P>

　　Private Sub Command1_Click()

　　Dim x As Single

　　x=InputBox("請(qǐng)輸入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)