精品理论电影在线_日韩视频一区二区_一本色道精品久久一区二区三区_香蕉综合视频

(15)以下能從字符串"VisualBasic"中直接取出子字符串"Basic"的函數是。
　　A．Left
　　b．Mid
　　C．String
　　D．Instr
(16)設a=4，b=3，c=2，d=1，下列表達式的值是。
　　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)設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("輸入："，"輸入整數")
　　MsgBox"輸入的數據是：”，，”輸入數據："+x
　　End Sub
　　程序運行后，單擊命令按鈕，如果從鍵盤上輸入整數10，則以下敘述中錯誤的是。
　　A．x的值是數值10
　　B．輸入對話框的標題是“輸入整數”
　　C．信息框的標題是“輸入數據：10”
　　D．信息框中顯示的是“輸入的數據是：”
(20)在窗體上畫1個命令按鈕(名稱為Command1)和1個文本框(名稱為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
　　程序運行后，在文本框中輸入3，然后單擊命令按鈕，則以下敘述中正確的是。
　　A．執行y=x*x
　　b．執行y=-x
　　C．先執行y=x*x，再執行y=-x
　　D．程序出錯
(21)設有命令按鈕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
　　對于該事件過程，以下敘述中錯誤的是。
　　A．a數組中的數據是30個100以內的整數
　　B．語句For Each arrItem In a有語法錯誤
　　C．If arrItem Mod 7=0……語句的功能是輸出數組中能夠被7整除的數
　　D．If arrItem>90……語句的作用是當數組元素的值大于90時退出For循環