填空题

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

【参考答案】

[12]n Mod 10 [13]n\10
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：把一维数组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
填空题
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(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
相关试题