中科新闻网3ds好玩的rpg战旗:用VB编程- -高一算法
来源：百度文库 编辑：中科新闻网 时间：2024/05/10 12:00:46
1． 从键盘输入一个数，判断此数是否偶数？
2． 程序屏幕上打印一个九九乘法表。
3. 已知s=1+3+5+……+n，试找出一个最大的整数n，使得 s<25000 。
第二个问题解决了，不用回答
2． 程序屏幕上打印一个九九乘法表。
3. 已知s=1+3+5+……+n，试找出一个最大的整数n，使得 s<25000 。
第二个问题解决了，不用回答
1.
Private Sub Text1_Change()
If Val(Text1.Text) Mod 2 = 0 Then
Text1.Text = Text1.Text + "是一个偶数"
Else
Text1.Text = Text1.Text + "是一个奇数"
End If
End Sub
3.
s = 0
i = 1
While s < 25000
s = s + i
i = i + 1
Loop
i=i-2
只知道算法
不知道具体语法
1.DIM I
输入（“I”）；
IF（I%2）=0
{
输出“I是偶数”}
ELSE{输出“I是奇数”}
2。DIM I=1，J=1，K
FOR（I=1；I<=9;I++）
{FOR（J=1；J<=I;J++）
输出（“I*J=K”）
}
3。DIM I=1，SUM=0；
SUM=SUM+I；
I=I+2；
IF（SUM>=25000）
{输出（“I”）
}
这个是算法
格式自己调整