多项选择题

下列程序的功能是求336的个位和十位数的值，填空补充程序。 Private Sub Command1 Click() n=1 For i=1 To 6 n=n*33 n=n Mod 100 Next i m=【 】 n=【 】 Print"十位数是”；n；”个位数是”；m End Sub

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

多项选择题
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项<控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox( input caption ) InxId；InxId+1 【 】mnuDyn(InxID) mnuDyn(InxlD)，Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【 】Then MsgBox 菜单项已全部被删除 Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub
多项选择题
下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)As Integer For i=1 To【 】 a(i)=Int(Rnd*25) Print a(i)； Next i Print For i=1 To 5 For i=1 To 5 b(i，j)=【 】 Print b(i，j)； Next j Print Next i End Sub
相关试题