中科新闻网国王的演讲最后的演讲:求各位帅哥高手帮我做这几道Visual Basic的编程题好吗??谢谢了!!
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 02:12:25
有几道Visual Basic编程题不会...
希望大家帮帮忙..谢谢了..我等着交作业呢..
帮我写出代码和说出大概的界面怎样画...谢谢噢..^_^!!
第一题:一个工厂2000年的销售值为10亿元,如果以10%的增长率计算,多少年可以翻一番?
第二题:打印由1,2,3可以组成的三位数,各个位上的数允许相同.
第三题:输入一个正数,打印它的所有因子.
楼上的是asp吗??
修改后!
第一题:Private Sub Form_click()
Dim i, sum, sum1
sum1 = 1000000000
sum = sum1
For i = 1 To 100
sum = sum * 1.1
If sum \ sum1 = 2 Then
Exit For
End If
Next
Print i; "年"
End Sub
第二题:
Private Sub Form_click()
Dim i, j, k
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
If i <> j Then
Print i; j; k
End If
Next
Next
Next
End Sub
第三题你题目是不是错了呢? 一个的因子什么意思??
第一题：
<%
dim i,sum,sum1
sum1=1000000000
sum=sum1
for i=1 to 100
sum=sum*1.1
if sum\sum1=2 then
exit for
end if
next
Response.write i&"年"
%>
至于你那个“打印”我还不是很明白是什么意思~！
大概应该是：
第二题：
<%
dim i,j,k
for i=1 to 3
for j=1 to 3
for k=1 to 3
if i<>j then
response.write i&j&k&"<br>"
end if
next
next
next
%>
第三题应该是：
输入一个正数,打印它的所有因子.？？？？
这个题目实在是看不明白什么意思~`不好意思啊！
总让别人写，你是不会进步的，自己写吧
写好了哥哥可以帮你看看哪不对
给我法短消息或qq都行
55350250
<%
dim i,sum,sum1
sum1=1000000000
sum=sum1
for i=1 to 100
sum=sum*1.1
if sum\sum1=2 then
exit for
end if
next
Response.write i&"年"
%>