填空题

下面程序运行后，窗体中显示 【14】 。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
Print
End Sub

【参考答案】

$$$$$$$$$
<上一题 目录 下一题>
热门 试题

填空题
忆知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在 【10】 和 【11】 处填处所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如： 1 2 3 4 1 2 3 4 1 2 3 4 l 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click() Dim a(4，4) For k=1 To 4 For j=1 To 4 a(k，j)=j Print a(k，j)； Next Print Next For k=2 To 4 For j=1 To 【10】 t=a(j，k) a(j，k)= 【11】 a(k,j)=t Next Next For k=1 To 4 Print a(k，1)；a(k，2)；a(k，3)；a(k，4) Next End Sub
填空题
在3种不同类型的组合框中，只能选择而不能输入数据的组合框是 【8】 。
相关试题