关于VB编程的若干个问题(足够耐心的进。。悬赏绝对丰厚!)

来源:百度知道 编辑:UC知道 时间:2024/06/19 23:58:14
这是我们高一会考笔试复习题,可是老师都没讲过。。所以只好来问啦
题目:能够编写单重循环求阶乘和分支结构中判断奇偶数等
(1)For x=1 to 10 step 2
s=s+x
next x
(2)For x=1 to 10 step 3
s=s+x
next x
(3)For x=1 to 10 step 4
s=s+x
next x
(4)For x=1 to 10 step 2
s=s+x
x=x+1
next x
(5)For x=1 to 10 step 2
s=s+x
x=x+2
next x
(6)求10!
T=()
For x=() to () step 1
T=T*()
next x
print x,T
说明:()是要填的地方
(7)x=5
For I=1 to 20 step 20
x=x+I/5
next I
(8)在窗体中添加两个文本框(text1和text2)和一个命令按钮(command1),然后在代码窗口中编写如下代码:
Private Sub Command1_Click()
Text1.text="VB"
Text2.text=Text1.text
Text1.text="ABC"
End Sub
程序运行后,单击命令按钮后,文本框Text1和Text2显示的内容分别为( )
(9)下列程序运行结果为()个同心圆。
x0=frmDraw.ScaleWidth/2
y0=frmDraw.ScaleHeight/2
For Radiu

(6)求10!
T=(1)
For x=(1) to (10) step 1
T=T*(x)
next x
print x,T

Private Sub Command1_Click()
Text1.text="VB"
Text2.text=Text1.text
Text1.text="ABC"
End Sub
程序运行后,单击命令按钮后,文本框Text1和Text2显示的内容分别为(ABC,VB )

(9)下列程序运行结果为(3)个同心圆。
x0=frmDraw.ScaleWidth/2
y0=frmDraw.ScaleHeight/2
For Radius=500 to 100 ste -200
FrmDraw.Circle(x0,y0),Radius
Next Radius