VB 编程第 4 版问题解决

private sub command1_click()

dim i as integer

dim a as integer, b as integer, c as integer

for i = 100 to 999

a = i \ 100 '找到三位数的百分之一的数字。

b = (i - a * 100) \10 '在三位数的几十个数字中找到数字。

c = i - a * 100 - b * 10 '在三位数的个位数中查找数字。

if a ^ 3 + b ^ 3 + c ^ 3 = i then '判断是否是水仙花的数量。

print i; '如果是水仙花的数量，则输出。

end if

next i

end sub

<>用三重循环来做到这一点：

private sub command1_click()

dim i as integer, j as integer, k as integer

dim s as integer

for i = 1 to 9

for j = 0 to 9

for k = 0 to 9

s = i * 100 + j * 10 + k

if i ^ 3 + j ^ 3 + k ^ 3 = s then

print s;

end if

next k

next j

next i

end sub

设计一个计算第一个二次方程 a*x*x+b*x+c=0 的根的表单。

问题 1：<>

问题 2：<>

问题 3：<>

问题 4：<>

问题 5：<>

8. 输入一个数字 x，如果 x>=0，则 y=1-2*x，否则，y=1+x9，循环，直到 i 大于 7，每个循环 i 增加 3，x 增加 510，rnd 函数返回 0-1 之间。

随机数，所以四舍五入 x 是 4（仅。

对于整数部分，输出必须良好

11.循环，每个循环x=（x+3）*（x+4），n为循环数，循环到x>=60，输出n、x和and。

12.X是字符框中的数字，a是X除以10求余数，B是X除以10再除以10，C是X除以100，因为它们都是整数，所以最终结果必须四舍五入（四舍五入）。

8.输入一个数字x，如果x>=0，则y=1-2*x，否则百度y=1+x

9. 循环直到 i 大于。

zhi7，I增加3，X增加5个周期

10. rnd 函数是返回一个介于 0 和 1 之间的随机数，所以四舍五入 x 为 4 后（只取整数部分），输出结果一定很好

11.循环，每个循环x=（x+3）*（x+4），n为循环数，循环到x>=60，输出n、x和and。

12.X是字符框中的数字，a是X除以10求余数，B是X除以10再除以10，C是X除以100，因为它们都是整数，所以最终结果必须四舍五入（四舍五入）。

1.控制，只要输入文本框数组的功能（也可以再添加两个文本框来输入参数的上限和下限），指定颜色的相应标签，一个OK按钮，以及一个显示曲线的**框。

2.“实现坐标系的自由设置”：a三维平面; b.笛卡尔坐标系、极坐标系; c.协调平移; d.坐标旋转。 这些功能有点难以实现。 特别是“立体旋转”。

3.如果考虑坐标系问题，可以添加两组单选按钮来选择A和B。 只需拖动鼠标平移并直接拉动即可。

还有什么更好的想法可以再次交流。

我把这两句话改成了注释语句（因为 a，b 的值是后面给出的）。 我不知道你的老师想做什么==），接下来两个公式的减号是标准化的（因为它是错误的）。然后你得到的结果就像第二张图片一样。

编写程序最忌讳的事情就是使用无意义的字母作为变量，这会使程序的可读性较差。

使用迭代算法时，要注意迭代是否收敛，可以打印出退出条件的值是否满足循环体内部的期望。

我不明白。 t_t

房东你好。

我认为这一段并不难理解，请注意：for 循环执行 3 次，分别为 a（1）、a（2） 和 a（3） 赋值

和 b（3）、b（2）、b（1） 分别等于 a（1）、a（2）、a（3），所以它们是

for 循环的机制是，在到达下一个循环变量后，逐步添加循环变量并与范围进行比较。 在本节中，在循环变量 k=2 执行后，k + 步骤 1 给出 k=3，而这个 for 循环在 2 处结束，所以它跳出循环，k=3

程序的最终输出是 b（3），即 1