用VB求解 已知A,B为正整数,A

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 07:39:48
用VB求解 已知A,B为正整数,A
x){>eEӳM//Vx}KulgS'{<_bYӥ{Aټ Ovt?ݰɞYOg=PYX\_ sU(I-pTp,V+IMO-Bp&U4pNfIIN* TV,t% !3 J!iP60@T 3PHk9* wL Res7\/@i( #R+J\[_P<;P

用VB求解 已知A,B为正整数,A
用VB求解 已知A,B为正整数,A

用VB求解 已知A,B为正整数,A
这个不难,你只要好好分析下就会做了
Private Sub Form_Load()
Dim tempA As Integer
Dim tempB As Integer
Dim B As Integer
Dim sum As Integer
Dim little As Integer
little = 2698
For tempA = 1 To 2698
tempB = 2698 / tempA
If tempA < tempB And 2698 Mod tempA = 0 Then
sum = tempA + tempB
End If
If sum < little Then
little = sum
B = tempB
End If
Next tempA
MsgBox B
End Sub