又黄又www的网站_青青草.com_在线亚洲美日韩_九九九国产视频_√天堂8资源中文在线_一区二区三区免费网站_久久久久国产一区二区三区_人妻激情偷乱视频一区二区三区_一本到在线视频

(15)以下能從字符串"VisualBasic"中直接取出子字符串"Basic"的函數(shù)是。
　　A．Left
　　b．Mid
　　C．String
　　D．Instr
(16)設(shè)a=4，b=3，c=2，d=1，下列表達(dá)式的值是。
　　a>b+1 Or c< Mod b And>
　　A．True
　　B．1
　　C．-1
　　D．0
(17)以下可以作為Visual Basic變量名的是。
　　A．A#A
　　B．counstA
　　C．3A
　　D．?AA
(18)設(shè)x=4，y=6，則以下不能在窗體上顯示出“A=10”的語句是。
　　A．Print A=x+y
　　b．Print"A=";x+y
　　C．Print "A="+Str(x+y)
　　D．Print"A="&x+y
(19)假定有如下的命令按鈕(名稱為Command1)事件過程：
　　Private Sub Command1_Click()
　　x=InputBox("輸入："，"輸入整數(shù)")
　　MsgBox"輸入的數(shù)據(jù)是：”，，”輸入數(shù)據(jù)："+x
　　End Sub
　　程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10，則以下敘述中錯(cuò)誤的是。
　　A．x的值是數(shù)值10
　　B．輸入對(duì)話框的標(biāo)題是“輸入整數(shù)”
　　C．信息框的標(biāo)題是“輸入數(shù)據(jù)：10”
　　D．信息框中顯示的是“輸入的數(shù)據(jù)是：”
(20)在窗體上畫1個(gè)命令按鈕(名稱為Command1)和1個(gè)文本框(名稱為Text1)，然
　　后編寫如下事件過程：
　　Private Sub Command1_Click()
　　x=Val(Text1.Text)
　　Select Case x
　　Case 1，3
　　y=x*x
　　Case Is>=10，Is<=-10
　　y=x
　　Case -10 To 10
　　y=-x
　　End Select
　　End Sub
　　程序運(yùn)行后，在文本框中輸入3，然后單擊命令按鈕，則以下敘述中正確的是。
　　A．執(zhí)行y=x*x
　　b．執(zhí)行y=-x
　　C．先執(zhí)行y=x*x，再執(zhí)行y=-x
　　D．程序出錯(cuò)
(21)設(shè)有命令按鈕Command1的單擊事件過程，代碼如下：
　　Private Sub Command1_Click()
　　Dim a(30)As Integer
　　For i=1 To 30
　　a(i)=Int(Rnd*100)
　　Next
　　For Each arrItem In a
　　If arrItem Mod 7=0 Then Print arrItem；
　　If arrItem>90 Then Exit For
　　Next
　　End Sub
　　對(duì)于該事件過程，以下敘述中錯(cuò)誤的是。
　　A．a(chǎn)數(shù)組中的數(shù)據(jù)是30個(gè)100以內(nèi)的整數(shù)
　　B．語句For Each arrItem In a有語法錯(cuò)誤
　　C．If arrItem Mod 7=0……語句的功能是輸出數(shù)組中能夠被7整除的數(shù)
　　D．If arrItem>90……語句的作用是當(dāng)數(shù)組元素的值大于90時(shí)退出For循環(huán)