下面的程序功能是找出满足下列条件的四位整数;(1)是一个完全平方数;(2)第一,二位数相等,第三、四位数相等,同时统计满足条件的数的个数,完善程序。
Private Sub Form_Click()
Dim i As Integer,m As Integer,n As Integer
n = 0
For i = 32 To 99
m = i * i
If ()Then
Print m;
()
End If
Next i
Print
MsgBox "共找出" & s & "个符合条件的四位数"
End Sub
您可能感兴趣的试卷
你可能感兴趣的试题
以下程序段执行后整型变量n的值为?
程序运行后,单击窗体,输出结果为?
有如下SUB过程,该过程的执行结果为?
单击一次命令按钮之后,下列程序代码的执行结果为?
下列程序执行后,执行的结果是?
最新试题
当使用Array函数给数组赋初值时,数组变量只能是()数据类型,只适用于一维数组。
如果没有显式指定Public或private,则sub过程默认范围是()。
如果想要将对象引用赋给变量或属性,则不能使用赋值语句,而必须使用()语句。
()函数用于计算表达式的值并据此返回两个值中的一个。
当重新分配动态数组的内容时,数组中的内容将被清除,如果在redim语句使用了(),则会保留数组中的内容。
在VB中,可以使用()语句来调用过程。
创建动态数组通常分为两步:首先然窗体模块、标准模块或过程中,使用()语句来声明一个没有下标的数组,然后在过程中使用()语句定义带下标的数组。
如果将多个语句放在同一行上,则每个语句之间必须使用()来连接,当一行代码很长时,可以使用()来续行。
动态数组是指计算机在执行过程中才给数组开辟内存空间的数组。可以使用()语句再次分配动态数组的内存空间,也可使用()语句删除它。
在VB中有一个专门的字符串连接运算符(),此外()也可以作为字符串运算符使用。