烤乳鸽好吃吗:问几道编程题,哪位好心人帮帮忙
来源:百度文库 编辑:查人人中国名人网 时间: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
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
For I=15 to 16
Print I;
For j=3 To 6 Step 3
Print Tab(3*j);j*I;
Next j
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
……
第四个是努力啊