試卷征集
加入會員
操作視頻

現(xiàn)有n*n大小的網(wǎng)格(n≤10),每個格子從左到右、從上到下編號依次編號為1、2、3……n*n,當(dāng)n為3時,網(wǎng)格如圖a所示。網(wǎng)格中每個格子都有一面沿對角線方向放置的擋板,且朝向隨機?,F(xiàn)將一個小球從左上角1號格子自上而下射入網(wǎng)格,則小球?qū)⒃诰W(wǎng)格中不斷反彈(不考慮實際的能量損失與重力影響等因素),最終從某個格子離開網(wǎng)格,根據(jù)擋板的朝向與小球的運動方向,將有幾種不同的反彈情況。如圖b所示,小球進入網(wǎng)格后,先后經(jīng)過1、2、5、6、3號格子,之后離開網(wǎng)格。
編寫VB程序,功能如下:在文本框Text1中輸入n的值,單擊“生成”按鈕Command1,生成網(wǎng)格和隨機的擋板,并輸出。然后單擊“開始”按鈕Command2,在文本框Text2中顯示小球進入網(wǎng)格后的運動路徑。程序中利用數(shù)組a存儲網(wǎng)格的狀態(tài),其中“/”與“\”兩種字符表示兩種朝向的擋板。程序運行界面如圖c所示。
菁優(yōu)網(wǎng)
請回答下列問題:
(1)要使程序運行時,窗體標(biāo)題顯示“網(wǎng)格彈球”,可在Form_Load事件過程中添加語句
C
C
。(單選,填字母)
A.Form1=“網(wǎng)格彈球”
B.Forml.Text=“網(wǎng)格彈球”
C.Form1.Caption=“網(wǎng)格彈球”
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
菁優(yōu)網(wǎng)
pre=“上”
pre=“上”
pre=“左”Anda(cur)=“/”O(jiān)rpre=“右”Anda(cur)=“\”
pre=“左”Anda(cur)=“/”O(jiān)rpre=“右”Anda(cur)=“\”

(3)程序中加框處代碼有錯,請改正。

【答案】C;pre=“上”;pre=“左”Anda(cur)=“/”O(jiān)rpre=“右”Anda(cur)=“\”
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.3
相似題
  • 1.下列程序執(zhí)行后的結(jié)果為( ?。?br />菁優(yōu)網(wǎng)

    發(fā)布:2024/11/13 21:30:1組卷:6引用:3難度:0.6
  • 2.有如下程序段:
    For i=1 To Len(Text1.Text)
    c=Mid(Text1.Text,i,1)
    If c>=“0“And c<=“9“Then c=Chr(Asc(c)+1)
    If c>=“A“And c<=“Z“Then c=Chr(Asc(c)+32)
    s=s+c
    Next i
    若文本框Text1的內(nèi)容為“Number 2468!”執(zhí)行程序后,變量s的值為( ?。?/h2>

    發(fā)布:2024/11/11 11:30:2組卷:4引用:3難度:0.3
  • 3.有如下VB程序段:
    菁優(yōu)網(wǎng)
    執(zhí)行以上程序段后,Text1中顯示的值可能是( ?。?/h2>

    發(fā)布:2024/11/11 18:0:1組卷:0引用:1難度:0.5
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司 | 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:4.8.2  |  隱私協(xié)議      第三方SDK     用戶服務(wù)條款廣播電視節(jié)目制作經(jīng)營許可證出版物經(jīng)營許可證網(wǎng)站地圖本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正