🚀 go-pugleaf

�������˼������������ˣ���������Ҳ�ܼ򵥣��Լ��������������

5-7
���������ҳ�1-100֮���������ʹ�������Ϊƽ��������5��4��10��6��13��12�ĺ�
����Ϊƽ�����ڴ���������������ť�����г���ʱ����������ʼ�����ť���ڴ�
�����1-100��������ƽ��������������ť���������

Private Sub Command1_Click()
Dim i As Integer, j As Integer, A As Single, B As Single
For i = 1 To 99
  For j = i + 1 To 100
    A = Round((j + i) ^ 0.5, 1): B = Round((j - i) ^ 0.5, 1)
    If A = Int(A) And B = Int(B) Then Print Str(i) & "," & Str(j) & vbCrLf
  Next
Next
End Sub

5-9
���һ���������֮�͵��������ı��?����������Ϊ����ȫ�����磬����28����
��Ϊ1��2��4��7��14�����1+2+4+7+14=28�����28��һ����ȫ���дһ�����򣬴Ӽ�����
��������M��N, ���M��N֮���������ȫ��

Private Sub Command1_Click()
Dim st As String, A As Long, B As Long, i As Long, j As Long, dat As Long
st = InputBox("�������һ������"): A = Val(st)
st = InputBox("������ڶ�������"): B = Val(st)
If B < A Then B = A: A = Val(st)
For i = A To B
  dat = 0
  For j = 1 To i - 1
    If i / j = i \ j Then dat = dat + j
  Next
  If dat = i Then Print Str(i) & vbCrLf
Next
End Sub

6-6
�ƶ���Ļ�����һ�����壬ʹ��Timer�ؼ���̣���������ʼ�����ť���ڴ����ϵ���Ļ��
ʼ�ƶ�����Ļ����Ϊ: ��Visual Basic��ӭ������ĻΪ��ɫ����2���֣���Ļ�ƶ���ʱ��
���Ϊ1/20�롣�������������ť���������

Option Explicit
Dim st As String, x As Integer

Private Sub Command1_Click()
st = "Visual Basic��ӭ����"
x = (Width - TextWidth(st)) / 2
Timer1.Enabled = True
Timer1.Interval = 200
Debug.Print Width, x
End Sub

Private Sub Timer1_Timer()
Cls
CurrentX = x: CurrentY = 1000
Print st
st = Right(st, Len(st) - 1) & Left(st, 1)
End Sub

7-5
��д���Dec_Num�������ж����Ƿ�Ϊ���������һ��������Ӹ�λ����λ�ϵ����ֵͼ���
��ƴ���Ϊ����������5431��98772�ȶ��ǽ��������¼�����У��Ӽ���������һ������
�����ó���Dec_Num����жϸ����Ƿ�Ϊ�����������ڴ����������

Private Sub Command1_Click()
Dim st As String
st = InputBox("������һ��2λ�����ϵ�������")
If Len(st) < 2 Then Exit Sub
If Val(st) < 10 Then Exit Sub
Print st & IIf(Dec_Num(st), "", "��") & "��һ��������"
End Sub

Function Dec_Num(Num As String) As Boolean
Dim i As Integer, A As String, B As String, BJ As Boolean
For i = 1 To Len(Num) - 1
  A = Mid(Num, i, 1): B = Mid(Num, i + 1, 1)
  If Val(A) <= Val(B) Then BJ = True: Exit For
Next
Dec_Num = Not BJ
End Function