谁会做（Visual Basic 程序设计基础教程)几道课后题?

来源：百度知道 编辑：UC知道 时间：2024/05/23 00:15:31
给出编程程序哦,我用VB6.0测试通过以后才给分!
1.编写一个程序,用户连续输入n个值,直到输入非数值数据为止.最后输出其中最大的一个数.

2.输入20个数字,显示其中奇数的个数和偶数的个数

3.设计一个程序,输入任意的一个整数,输出其位数(采用IF...Else和Select分别实现).

第三题举个例子：输入“21”。输出“2位数”

1、
Private Sub Form_Click()
Dim a, max
a = InputBox("请输入一个数")
max = a
Do
a = InputBox("请输入一个数")
If Not IsNumeric(a) Then Exit Do
If a > max Then max = a
Loop
Print max
End Sub

2、
Private Sub Form_Click()
Dim a, j, o
For i = 1 To 20
a = InputBox("请输入一个数")
If a Mod 2 = 0 Then
o = o + 1
Else
q = q + 1
End If
Next
Print "奇数的个数"; q
Print "偶数的个数"; o
End Sub

3、
'这个用不到if和select吧
Private Sub Form_Click()
a = InputBox("输入一个整数")
Print Len(a) & "位数"
End Sub