更多"下列程序的功能是：单击窗体时随机生成20个两位数依次赋值给一个由20个"的相关试题:
[填空题]下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form_Click（ ）
Dim a(20) As Integer,i As Integer
Dim t As Integer,j As Integer
Randomize
For i=1 To 20
a(i)=10+Int(90*Rnd)
Print a(i)；
Next i
Print
i=1： 【9】
Do While i＜j
t=a(i)： 【10】 ：a(i)=t
i=i+1：j=j-1
Loop
For i=1 To 20
Print a(i)；
Next i
Print
End Sub
[填空题]下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。
Option Base 1
Private Sub Form_Click（ ）
Dim a(10) As Integer，i As Integer
Dim max As Integer，max_i As Integer
Randomize
For i=1 To 10
a(i)= 【12】
Next i
max=a(1)：max_i=1
For i=1 To 10
If 【13】 Then
max=a(i)
max_i=i
End If
Next i
Print max,max_i
End Sub
[填空题]下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。
Option Base 1
Private Sub Form_Click（ ）
Dim a(10) As Integer，i As Integer
Dim max As Integer，max_i As Integer
Randomize
For i=1 To 10
a(i)= 【12】
Next i
max=a(1)：max_i=1
For i=1 To 10
If 【13】 Then
max=a(i)
max_i=i
End If
Next i
Print max,max_i
End Sub
[填空题]下列程序(由10行语句组成)的功能是求出所有的幸运数(幸运数是指前两位数字之和等于后两位数字之和的四位数),但程序运行时提示程序的第5行有错第5行语句应修改为（） CLEAR DIME x(4) FOR i=1001 TO 9999 FOR j=1 T0 4 x(j)=VAL(SUBSTR(i,j,1)) ENDFOR IF x(1)+x(2)=x(3)+x(4) i ENDIF ENDFOR
[填空题]
本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。汉字的区位码由4位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字"中"的区位码是5448,即"中"的区号是54,位号是48。将区号与位号分别加上160,再转换成十六进制数形式,就是"中"的机内码。请完善本程序。
Option Explicit
Private Sub CmdChange_Click（ ）
Dim qw As String,jn As String
qw=Text1
Text2=qw2jn(qw)
End Sub
Private Function qw2jn(st As String) As String
Dim n1 As Integer,n2 As Integer
n1=Val(Left(st,2))+160
n2=（）
qw2jn=d2h(n1) & d2h(n2)
End Function
Private Function d2h(d As Integer) As String
Dim p As Integer,q As String*1
Do
p= （）
If p>9 Then
q=Chr(55+p)
Else
q=CStr(p)
EndIf
（）
d=d/16
Loop Until （）
End Function
[填空题]下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。
Private Sub Form_Click（ ）
Dim A(9) As Integer,i As Integer
Dim j As Integer,k As Integer
Randomize
For i=0 To 9
A(i)=Int(100*Rnd)
Next i
For i=0 To 8
k= 【9】
For j=i To 9
If(A(k)＞A(j))Then
【10】
End If
Next j
If k＜＞i Then
t=A(k)：A(k)=A(i)：A(i)=t
End If
Next i
For i=0 To 9
Print A(i)，
Next i
Print
End Sub
[填空题]随机生成的10个两位数，求出它们的总和和平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。
说明：在窗体上有一个Command1按钮，单击它将计算10个随机数的和以及平均数，并在窗体上输出平均数。
Private Sub Command1_Click（ ）
Dim M As Integer,N As Integer,Sum As Integer
Dim I As Integer, K As Integer，Ave As Single
Sum=0
Randomize
For I=1 To 10
M=Int(9*Rnd)+1
N= 【10】
K=M*10+N
Sum= 【11】
Next I
Aver= 【12】
Print Aver
End Sub
[填空题]随机生成的10个两位数，求出它们的总和与平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。
说明：在窗体上有一个Commandl按钮，单击它将计算10个随机数的和与平均数，
并在窗体上输出平均数。
Private Sub Commandl Click（ ）
Dim m As Integer, n As Integer, sum As Integer
Dim i As Integer, k As Integer, aver As Single
sum=0
Randomize
For i＝1 To 10
m＝Int(9*RnD) +1
n= 【9】
k=m*10+n
sum= 【10】
Next i
aver= 【11】
Print aver
End Sub
[填空题]一个两位数的十位数字是a，个位数字是b，把这个两位数的十位数字与个位数字对调，所得的数减去原数，差为72，则这个两位数是______．
[单项选择]一个两位数被4除余3，如果交换它的十位数字与个位数字的位置，所得的两位数被4除也余3，则这样的两位数有（）个。
A. 4
B. 6
C. 7
D. 9
[单项选择]一个两位数，个位数字比十位数字大4，若颠倒数位上的顺序，则所得数比原数的2倍大10，原两位数为( )
A. 62
B. 26
C. 51
D. 15
[填空题]下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。
Option Base 1
Private Sub Command1_Click（ ）
Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As Integer
Dim maximum As Integer, max n As Integer, max_m As Integer
Randomize
For m=1 To 3
For n = 1 To 5
a(m, n)= 【3】
Next n
Next m
maximum＝a(1, 1)
max n=1 : max m=1
For i = 1 To 3
For j=1 To 5
If 【4】 Then
maximum=a(i, j)
max m=i
max_n=j
End If
Next j
Next i
Print maximum, max m, max n
End Sub
