VB一道编程题

Question

请问这道题该怎么写呢？图1是题目，图2是要写的内容。

Answer 1

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

追问

亲，您是不是回复错了……

Answer 2

y=a(1)
For i=1 To 100
If y<a(i) Then y=a(i)
Next i
Label2.Caption=y

Answer 3

Dim intMin As Long,Flag As Integer
For i＝1 To 100
If a(i) Mod 2＝1 Then
intMin＝a(i)*i
Flag＝i
Exit For
End If
Next i
For i＝Flag＋1 To 100
If a(i) Mod 2＝1 And a(i)*i＜intMin Then
intMin＝a(i)*i
End If
Next i
Label2.Caption＝intMin