填空题

下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)As Integer For i=1 To 【10】 a(i)=Int(Rnd*25) Print a(i)； Next i Print For i=1 To 5 For i=1 To 5 b(i，j)= 【11】 Print b(i，j)； Next j Print Next i End Sub

【参考答案】

[10]25 [11]a((i-1)*5+j)

<上一题目录下一题>

热门试题

填空题

设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。Private Sub Command1_Click()CommonDialogl.Flags=cdlCCRGBInitCommonDialogl.Color=Text1.ForeColor【9】 Text1.ForeColor=CommonDialog1.ColorEnd Sub

填空题

在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是【8】。Private Sub Form_Load()ShowText1.Text= Text2.Text= Text2.SetFocusEnd SubPrivate Sub Text2_KeyPress(KeyAseii As Integer)Text1.Text=Text1.Text+Chr(KeyAscii-5)End Sub

相关试题