用VB的inputbox函数解答鸡兔同笼问题.

英语翻译
Dim s,i,j,arr(1 To 10),t,sum
For i = 1 To 10
s = InputBox("输入评分（0-10分）：","第" & i &"个分数")
If IsNumeric(s) Then
s = Val(s)
If s < 0 Or s > 10 Then
i = i - 1
Else
arr(i) = s
End If
Else
i = i - 1
End If
Next
For i = 1 To 9
For j = i + 1 To 10
If arr(i) > arr(j) Then
t = arr(i):arr(i) = arr(j):arr(j) = t
End If
Next
Next
For i = 2 To 9
sum = sum + arr(i)
Next
Label1.Caption = "最高分为："& arr(10)
Label2.Caption = "最低分为："& arr(1)
Label3.Caption = "选手最后得分："& Round(sum / 8,1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "评分"
Command2.Caption = "结束"
With Label1
.Caption = ""
.AutoSize = True
End With
With Label2
.Caption = ""
.AutoSize = True
End With
With Label3
.Caption = ""
.AutoSize = True
End With
End Sub

VB题目,用inputbox来做
用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。

a=InputBox("Today","Tomorrow","Yesterday","Day before yesterday",5)将显示一个对话框
在对话框的输入中显示的信息是（）答案：Yesterday.求解

Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print

求编写程序,使用InputBox函数输入两个电阻的值,求它们并联和串联的电阻值,使用MsgBox消息框输出结果,要
要求保留三位小数

我要在教育分类下问这么一个问题
a=inputbox（a）
if a mod 4 =0 and a mod 100=0 or a mod 400=0 then
print"Y"
else
print"N"
end if
看到了吧 so easy 但是 我就想问一下 a mod 4 =0 不就OK了 还要那么多限制条件 我平常都是用除以四判断的 您能举个例子给我看看吗
当然咯 我是为了完成任务才问的 也就是为了那20积分 所以每分哦 答不答随你遍
求闰年 被400整除不就被4整除了
打错了 a mod 1000

程序编写.（VB）
．通过InputBox函数生成一个输入对话框,如果用户输入了一个整数,则在窗体上显示该数的绝对值,否则,要求用户重新输入.3．有一分数序列2/1,3/2,5/3,8/5,……,求出这个序列的前20项的和.4．有一袋球（100到200之间）,如果一次数4个,则剩2个；一次数5个,则剩3个；一次数6个,则正好数完,求该袋球的

在VB中输入依次输入a,b,c=inputbox(prompt,tittle),print a+b+c,当输入1,2,3,怎么得到123,而不是6?

vb.net程序设计：包括三个过程1事件过程form1用inputbox输入10个数,2函数过程求最大值,3button调用过程
运用循环,显示出10个框要自己输入10个数.
请兄弟姐妹们,感激不尽!