Const n=11
Dim a(1 To n) As Integer,y(1 To n) As Integer, i As Integer, j As Integer
k=Val (Text1.Text)
For i=1To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))
Next i
数组a的各元素的值为“3,4,3,1,4,4,5,5,6,2,0”,在文本框Text1中输入4,执行该段程序后文本框Text2中显示的值为( )
Dim k As Integer, num As Integer, m As Integer
Dim s As String, ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26:ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s, x,1)
s =Mid(s,1,x-1)+Mid(s,k,1)+Mid(s,x+1,26-x)
k=k-1:m=m-1
Loop
Text2.Text = ans
文本框Text1中输入4,执行上述程序后,文本框Tex2中有显示的内容不可能为( )
Dim a(1 To 8) As Integer, b(1 To 8) As Integer
a(1)=1: a(2)=2: a(3)=3: a(4)=2: a(5)=1:a(6)=4:a(7)=3: a(8)=5
b(1)=5:b(2)=3:b(3)=5:b(4)=9:b(5)=7:b(6)=7:b(7)=7:b(8)=6
n=8
For i=1 To n-1
For j=n-1 To i Step-1
If a(j)*b(j+1)<a(j+1)*b(j)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
t=b(j):b(j) =b(j+1):b(j+1)=t
End If
Next j
Next i
For i=1 To 8
List1.AddItem str(a(i))+" "+str(b(i))
Next i
运行该程序段后,列表框List1第5行显示的内容为( )
请回答下列问题:
实现上述功能的代码如下。请回答下列问题:
Dim xh(0 To 100) As String .
Dim cj(0 To 100) As Integer
Const num = 50
Private Sub Form_ Load ()
‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中,代码略
End Sub
Private Sub Com1_Click ()
Dim i As Integer, m As Integer, n As Integer, k As Integer, a As Integ
a = Val(Text1.Text)
For i=1 To num-1
k=
If k<>i Then
t=cj(k):cj(k)=cj(i):cj(i)=t
s=xh(k):xh(k)=xh(i):xh(i)=s
End If
Next i
m=a-1:n=a+1
Do While cj(m) = cj(a)
m=m-1
Loop
Do While cj(n) = cj(a)
n=n+1
Loop
If m<>0 And Then lq = m Else lq=n-1
Label5.Caption = Str(lq)
Label6.Caption = Str(cj(lq))
List1.AddItem “字号”+“学号”+“成绩”
For i=1 To lq
List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))
Next i
End Sub
Function imax(x As Integer, y As Integer) As Integer
Dim i As Integer,j As Integer
i=x
For j=x+1 To y
If Then i=j
Next j
imax = i
End Function
实现上述功能的VB程序如下,请回答下列问题:
Dim book(1 To 100) As String '存储书籍的编号
Dim bname(1 To 100) As String '存储书籍的书名
Dim pos(1 To 100) As String '存储书籍所在阅览室的位置
Dim rroom(1 To 4) As String '存储每个阅览室存放书籍的大类
Dim n As Integer'在架书籍总数
Private Sub Form_ Load ()
'在架书籍根据编号进行升序排序,书籍编号、书籍名称和所在阅览室的位置分别存放在数组book、bname 和pos中,在架书籍总数为n,代码略
rroom(1)="ABCDEF":rroom(2)="GHIJKN"
rroom(3)="OPQRST":rroom(4)="UVXZ" '每个阅览室存放的书籍大类
End Sub
Private Sub Command1_Click ()
Dim id As Integer,i As Integer,key1 As String,key2 As String,flag As Integer
Dim start1 As Integer,end1 As Integer
id = Val(Text1. Text)
key1= Mid(rroom(id),1,1)
key2=
start1 =check (key1,1)
end1 = check (key2,-1)
For i = start1 to
List1.AddItem "编号:"+gs(book(i))+"位置:"+gs(pos(i))+"书名:"+gs (bname(i))
Next i
End Sub
Function check(key As String, flag As Integer) As Integer
Dim left As Integer, right As Integer, m As Integer
left=1:right=n
Do While left <= right
m= (left + right) \ 2
If Then
right= m - 1
Else
left=m+1
End If
Loop
check = left
End Function
Function gs(s As String) As String
Dim i As Integer
For i=1To15-Len(s)
s=s+""
Next i
gs=S
End Function