用VB6.0制作一个平方根表

来源：百度知道 编辑：UC知道 时间：2024/05/26 23:17:50
模仿九九口诀表的设计方式，制作一个平方根表。具体要求是：编写一个如图2所示的平方根表，第一行表示个位数，第一列表示十位数。表中所列是任意两位数的平方根，保留小数两位。例如：要查找56的平方根是多少呢？在第1列找到5，在第1行找到6，56的平方根是7.48，（要用到格式输出Format函数。）界面在这里：

Private Sub Form_Load()
Dim i%, j%, dR As Double
Me.AutoRedraw = True
Me.Font.Name = "宋体"
Print " "; '打印第一行 0 - 9
For j = 0 To 9
dR = j: Print " "; j;
Next
Print '打印回车
For i = 0 To 9
dR = i
Print " "; i; " ";
For j = 0 To 9
dR = i * 10 + j
dR = Sqr(dR)
Print Format$(dR, "0.00 ");
Next
Print
Next
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.FontSize = 11 '设置字体大小
Print Replace("/0/1/2/3/4/5/6/7/8/9", "/", Space(5));
For k = 0 To 9
Print vbCrLf & vbCrLf & k & Space(2); '打印第一列
For j = 0 To 9
Print Format(Sqr(10 * k + j), "0.00") & Space(2); '打印值表
Next j, k
End Sub