填空题

下列程序的功能是求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中下标值为偶数的元素从小到大排列,其他元素不变。 Dim a(1 To 10),i,j,k For i=1 To 10 a(i):InputBox( input: ) Next i For i;1 To 10 Print a(i) Next i Print For i=2 To 10 【14】 For j=i+2 To 10 If 【15】 Then t=a(i) a(i)=a(j) a(j)=t End If Next j Next i For i=1 To 10 Print a(i) Next i
填空题
下列程序的功能是:把一维数组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
相关试题
  • 数据管理技术随着计算机技术的发展而发展。...
  • 设栈S的初始状态为空,栈的容量为5,若入...
  • 在理想情况下,每一个菜单都应有唯一的访问...
  • 将命令按钮的______ 属性设置为True...
  • 窗体的MouseDown事件过程如下: Form_Mou...