神马品牌网不声不响是什么意思:用VB 6.0做的题目……大家帮忙给一下编码……
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 08:11:31
面积为S的矩形（即在TEXT 里面输入的数字为矩形的面积S……为确切数字），各个边长均为自然数（不输入……）在LABEL中显示的可能有的几种形成可能……
eg：输入S=12，输出的答案为3（即1*12；2*6；3*4不记6*2，12*1，4*3……）
输入S=13，输出的答案为1
（请大家帮忙用BASIC 语言中的FOR NEXT编码解答哦！！！谢谢啦！！！）
老师给的部分提示编码：
(1)int ( 13 / 4 ) = 3
(2)13 mod 4 = 1
(3)13 div 4 = 3
回复2楼的同志~
8是！
偶只是单纯迷笔笔罢了……
8是超女迷！
eg：输入S=12，输出的答案为3（即1*12；2*6；3*4不记6*2，12*1，4*3……）
输入S=13，输出的答案为1
（请大家帮忙用BASIC 语言中的FOR NEXT编码解答哦！！！谢谢啦！！！）
老师给的部分提示编码：
(1)int ( 13 / 4 ) = 3
(2)13 mod 4 = 1
(3)13 div 4 = 3
回复2楼的同志~
8是！
偶只是单纯迷笔笔罢了……
8是超女迷！
Private Sub Command1_Click()
Dim s As Integer
Dim a As Integer, b As Integer
s = CInt(Text1.Text)
Label1.Caption = ""
For a = 1 To s
If (s Mod a) = 0 Then
b = s / a
Label1.Caption = Label1.Caption & " " & a & "*" & b & "=" & s & ""
End If
Next
End Sub
以上程序在VB6.0 和 XP Home Edition 通过
楼主是 “超女” 的 FANS ？