填空题

下列程序的功能是：把一维数组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)
<上一题 目录 下一题>
热门 试题

填空题
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdd) 和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox( input caption ) InxId；InxId+1 【6】 mnuDyn(InxId) mnuDyn(Inxld) ，Calption=mnuc mauDyn(InxId) .Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If 【7】 Then MsgBox 菜单项已全部被删除 Else Unload mnuDyn(InxId) InxId=InxId-1 End If End Sub
填空题
设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit CommonDialogl.Color=Text1.ForeColor 【9】 Text1.ForeColor=CommonDialog1.Color End Sub
相关试题