UC知道用VB编写程序代码,我只要代码,是代码!!!
来源：百度知道 编辑：UC知道 时间：2024/06/06 18:43:07
问题1 50元公斤以内的价格为0.5元,大于50斤超出部分每公斤0.8元
问题2 设置一个程序,输入学生成绩,给出成绩等级,如果输入数据小于0或大于100给出错误信息.
问题3 用for循环求出1到100之间所有的奇数和:用Do - while 循环求出10的阶乘.
问题4 单击窗体时候,在窗体上输出由*组成,10行12列的主心矩形:单击窗体时候,在窗体上输出九九乘法表.本人.
问题6 定义一个长度为10的数型,数型元素的值要求用Inputbox用户输入,在窗体上打印出所有数组元素,然后将数组倒置,在打印出倒置后的数组元素.
本人急用呀,因为这是作业,各位大大帮帮忙,先谢谢了!
问题2 设置一个程序,输入学生成绩,给出成绩等级,如果输入数据小于0或大于100给出错误信息.
问题3 用for循环求出1到100之间所有的奇数和:用Do - while 循环求出10的阶乘.
问题4 单击窗体时候,在窗体上输出由*组成,10行12列的主心矩形:单击窗体时候,在窗体上输出九九乘法表.本人.
问题6 定义一个长度为10的数型,数型元素的值要求用Inputbox用户输入,在窗体上打印出所有数组元素,然后将数组倒置,在打印出倒置后的数组元素.
本人急用呀,因为这是作业,各位大大帮帮忙,先谢谢了!
'1.
a=inputbox("请输入重量","输入","30")
if a<=50 then
b=50*0.5
else
b=50*0.5+(a-50)*0.8
end if
msgbox("请付" & b & "元!")
'2
a=inputbox("请输入重量","输入","30")
if a<0 or a>100 then
msgbox "输入错误",16,"出错拉"
exit sub
end if
select case a
case IS<60
b="不及格"
case is<70
b="好"
case else
b="还可以"
end select
msgbox b
'3
for i= 1 to 100
if i mod 2=1 then s=s+i
next
msgbox i
'
i=10
do while i>0
s=s*i
i=i+1
loop
msgbox s
'4
for i-1 to 9
for j=1 to 11
print "*";
next j
print
next i
'
for i=1 to 9
for j=1 to i
print j & "×" & i & "=" & i*j;
print tab(10)
next j
print
next