When reading a text, I first identify the topic, purpose and structure of the text, then I make guesses, predictions during reading. In this way, I create meaning from the text as a whole. This is the bottom-up model. ()
此题为判断题(对,错)。
第1题:
若有数组Dim a%(10)且每个元素有值,求最小值并在Text1中显示,下列语句正确的是___________。
A.Dim i%, nMin% nMin = 0 For i = 1 To 10 If a(i) < nMin Then nMin = a(i) End If Next Text1.Text = nMin
B.Dim i%, nMin% nMin = 0 For i = 1 To 10 If a(i) < nMin Then nMin = i End If Next Text1.Text = nMin
C.Dim i%, nMin% nMin = a(0) For i = 1 To 10 If a(i) < nMin Then nMin = i End If Next Text1.Text = nMin
D.Dim i%, nMin% nMin = a(0) For i = 1 To 10 If a(i) < nMin Then nMin = a(i) End If Next Text1.Text = nMin
第2题:
假如已有如下定义的数组,利用循环在标签里输出每个数组元素的值,________是正确的。 Dim a(9) As Integer, i%
A.Label1.Text = "" For i = 1 To 9 Label1.Text &= a(i) Next
B.Label1.Text = "" For i = LBound(a) To UBound(a) Label1.Text &= a(i) Next
C.Label1.Text = "" For i = 0 To UBound(a) Label1.Text = a(i) Next
D.Label1.Text = "" For i = 0 To 9 Label1.Text = a(i) Next
第3题:
4、下面程序功能是在文本框输入任意字符串,将字符串倒置后在标签显示结果。 例如,输入“ABCDEFG”变换成“GFEDCBA”。 在空白处填入合适的表达式,使程序完整。 Dim i As Integer Label1.Text = "" For i = 1 To Len(TextBox1.Text) Label1.Text = ________ Next
A.Mid(TextBox1.Text, i, 1) & Label1.Text
B.Mid(TextBox1.Text, i, 1)
C.Label1.Text & Mid(TextBox1.Text, i, 1)
D.Label1.Text & TextBox1.Text
E.TextBox1.Text & Label1.Text
第4题:
以下代码片段执行后,text的值为:() var i=1, text=''; do { text += i; i++; } while (i < 5);
A.15
B.10
C.6
D.1234
第5题:
下面程序功能是在文本框输入任意字符串,将字符串倒置后在标签显示结果。 例如,输入“ABCDEFG”变换成“GFEDCBA”。 在空白处填入合适的表达式,使程序完整。 Dim i As Integer Label1.Text = "" For i = 1 To Len(TextBox1.Text) Label1.Text = ________ Next
A.Mid(TextBox1.Text, i, 1) & Label1.Text
B.Mid(TextBox1.Text, i, 1)
C.Label1.Text & Mid(TextBox1.Text, i, 1)
D.Label1.Text & TextBox1.Text
E.TextBox1.Text & Label1.Text
第6题:
下列哪一组语句能够实现将文本框Text1的全部内容一次性写入文件()
A.Open “Text.dat” For Output As #1 Print #1 Text1.text Close #1
B.Open “Text.dat” For Input As #1 Print #1 Text1.text Close #1
C.Open “Text.dat” For Output As #1 For I= 1 to Len(Text1.text) Print #1 Mid(Text1.text,I,1) Next I Close #1