烤乳鸽好吃吗:问几道编程题,哪位好心人帮帮忙

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 07:59:52
1.Private Sub Form_Click( )

Static Sum As Integer

For I=1 To 10

Sum= Sum+I

Next I

Print Sum

End Sub

2.Private Sub Form_Click ( )

Print "*";Tab(9);3,Tab(18);6

Print

For I=15 to 16

Print I;

For j=3 To 6 Step 3

Print Tab(3*j);j*I;

Next j

Print

Next I

End Sub

3.Private Function Fac(n As Integer)As Integer

Dim f As Integer

f=f+n

Fac =f

End Function

Private Sub Form_Click( )

Dim I As Integer

For I=1 To 5

Print "∑";I & "=" & Fac(I)

Next I

End Sub

4.Private Sub Command1_Click( )

Text1.Text=努力

End Sub

Private Sub Command2_Click( )

Text1.Text="学习"

End Sub

单击Command2按钮,又单击Command1按钮,在文本框中显示什么?

请大家告诉我这四道题,每道题的结果....

还有四道题,我自己不会 请哪位前辈加我Q 帮我解答一下,我加你也可以

我的Q 275266212

第一个题目相当于1+2+3……+10
第三个就是打印出来了
∑1 =1
∑2 =2
……
第四个是努力啊