单项选择题

窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form. Load()
List1.AddItem "北京"
List1. AddItem "天津"
List1. AddItem "上海"
Text1. Text=""
End Sub
Private Sub List1. Click()
Print Text1. Text+List1. Text
End Sub
程序运行后，在文本框中输入“中国”，然后单击列表框中的“北京”，则输出结果是( )。

A．中国北京
B．中国天津
C．中国上海
D．北京中国

<上一题目录下一题>

热门试题

单项选择题

下列程序代码实现生成20个0～100之问的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段( )，完成程序。 Private Sub Command1 Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Text1. Text=Text1. Text＆arr(i)＆Chr(13)＆Chr(10) Next i Surn=0 For Each X______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If NextX Print Tab(20)； Sum= ；Sum End Sub

A．Int(Rnd*99+1)In arr
B．Int(Rnd)In arr
C．Int(Rnd*99+1)In arr()
D．Int(Rnd)In arr()

单项选择题

在C盘当前文件夹下有一个已建立好的顺序文件Alph.txt，文件内容为只含有字母的一个字符串(有双引号界定符)。单击窗体，打开Alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入Alp().txt文件中(无双引号界定符)。请选择横线处合适的语句( )。 Private Sub Form Load() Dim Strln As String, StrOut AS String Open C: Alph.txt For Input As#1 ______ Close Text1.Text=StrIn ______ Text2.Text=StrOut Open C: AIpO.txt For Output As#2 ______ Close Fnd Sub Private Function StrSort(s As String)As String Dim sArr()As String *1, j As Integer, J As Integer, n As Integer DimtAS String*1 n=Len(s) ReDim sArr(n) For i=1 To n sArr(i)=Mid(s，i，1) Next i For i=1 To n. 1 For j=i+1 To n If sArr(i)＞sArrj Then t=sArr(i):sArr(i)=sArr(i):sArr(j)=t EndIf Next i, i For i=1 To n StrSort=StrSort＆sArr(i) Nexti End Function

A．Input#1, Strln Strln Print#2, StrOut
B．Input#1, Strln StrSort(Strin)Print#2, StrOut
C．Input#2, Strln StrSort(Strln)Print#1, SttOut
D．Print#1, Strln StrSort(Strin)Input#2, StrOut

相关试题