如何用c语言编程序
答案:1 悬赏:70 手机版
解决时间 2021-01-21 05:54
- 提问者网友：富士山上尢
- 2021-01-20 09:50
如何用c语言编程序
最佳答案
- 五星知识达人网友：行路难
- 2021-01-20 10:10
Private Sub Command1_Click()
For i = 4 To 1 Step -1
Print Tab(5 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub
Private Sub Command1_Click()
n = CInt(InputBox("N="))
Dim a$(10)
Max = 1
For i = 1 To n
a(i) = InputBox("第" & i & "个字符串：")
Print a(i)
If Len(a(i)) > Len(a(Max)) Then Max = i
Next i
Print
Print "最长的字符串是："; a(Max)
End Sub
追问太谢谢了追答满意请采纳。追问可是你的为啥和我们学的格式不一样呢
For i = 4 To 1 Step -1
Print Tab(5 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
Private Sub Command1_Click()
n = CInt(InputBox("N="))
Dim a$(10)
Max = 1
For i = 1 To n
a(i) = InputBox("第" & i & "个字符串：")
Print a(i)
If Len(a(i)) > Len(a(Max)) Then Max = i
Next i
Print "最长的字符串是："; a(Max)
End Sub
追问太谢谢了追答满意请采纳。追问可是你的为啥和我们学的格式不一样呢
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯