Question

一道VB程序题

打开 “VB”文件夹下中的“砖块.vbp”工程，完成以下操作：
洋洋利用VB设计了一个计算圆内正方形砖块的块数程序，其功能如下：
用户在文本框Text1中输入圆的半径，单击“计算”按钮，在列表框List1中输出包含边长为1的砖块数。

第2题图
打开 “VB”文件夹下中的“砖块.vbp”工程，完成以下操作：
洋洋利用VB设计了一个计算圆内正方形砖块的块数程序，其功能如下：
用户在文本框Text1中输入圆的半径，单击“计算”按钮，在列表框List1中输出包含边长为1的砖块数。

第2题图
(1)根据程序运行界面，设置命令按钮Caption属性为“计算”，并将窗体的Caption属性设置为“砖块问题”。（6分）
（2）为命令按钮Command1选择合适的事件过程，该事件过程的代码从“code.txt”文件中得到。（4分）
（3）调试并运行程序，发现块数没有显示在对应的文本框中，修改程序中的某一语句，使程序实现洋洋所需功能。（6分）

Private Sub Command1_Click()
Dim r As Single
Dim k, c, v As Integer
List1.Clear
r = Val(Text1.Text)
k = Int(r)
c = 0
For j = 1 To k
v = Int(Sqr(r ^ 2 - j ^ 2))
c = c + v
Next j
List1.AddItem
Print (Str(4 * c) + "块")
End Sub

最后一题怎么解决，谢谢

Answer 1

我是程序员，我没读懂题，惭愧。。。。
能不能说一下题意。。。用户在文本框Text1中输入圆的半径，单击“计算”按钮，在列表框List1中输出包含边长为1的砖块数。是指这个圆里最多能放下多少个边长为1的正方形吗？
这属于数学题，怎么算，感觉不好算啊。。。。。

追问

就是编码放进去一算那数字不在框里，在外面。怎么改使算出来的数在List1里面

追答

嗯，明白了，我原以为不指定中心点的。。。
你的程序看上去像WinForm或者WPF，如果是的话，需要写成
List1.Items.Clear()
List1.Items.Add(Str(4 * c)+ "块")
不然都编译不过啊。而且Print函数是用于Console工程的。