Question

求教几个VB题目

1、新建一个标准EXE工程，完成以下程序要求：
（1）在窗体上画二个标签，一个命令按纽，二个文本框，并设置属性如下
对象 属性 值
Label1 Caption 输入数据
Label2 Caption 判断结果
Text1 Text (空)
Alignment 2
Text2 Text (空)
Command1 Caption 判断
Name Comjudge
Form1 Caption 对输入数据判定
Width 4500twip
所有对象 font 黑体、粗体

（2）编写命令按钮“判断”的单击事件过程，要求单击命令按钮，对文本框中的数进行判断，如果它是正数，则在第二个文本框中输出“正数”，如果它是负数，则在第二个文本框中输出“负数”，否则输出“零”。

2、新建一个标准EXE工程，完成以下程序要求：
（1）在窗体上画二个标签，一个命令按纽，二个文本框，并设置属性如下
对象 属性 值
Label1 Caption 输入第一个数：
Autosize True
Label2 Caption 输入第二个数：
Borderstyle 1
Text1 /Text2 Text (空)
Alignment 2
Command1 Caption 交换
Name Comchange
Form1 Caption 交换两个数
所有对象 font 黑体、粗体

（2）编写命令按钮“交换”的单击事件过程，要求分别在2个文本框中输入数值，单击命令按钮，交换两个文本框的数。

3、编写Form_Click（）事件过程，求出以下数列前n项的和，并在窗体上输出（结果为单精度型）。 其中，n由inputbox函数产生。
12 、23 、35 、48 、512 、617 、723 、830 ……

4、编写Form_Click（）事件过程，求出以下数列前n项的和，并在窗体上输出结果（结果为单精度型）。其中，n由inputbox函数产生。
S=1+1/(1*2)+1/(1*2*3)+1/(1*2*3*4)+…+1/(1*2*3*…*n)

5、编写Form_Click（）事件过程，完成以下程序功能：利用随机函数Rnd生成10个200-1000之间的整数，并且在窗体上输出这10个整数以及它们的最大值。
各位高手，一定要帮我啊
老师逼我明天交了
我不想挂科啊
拜谢了～

Answer 1

1.
Private Sub Command1_Click()
If Val(Text1.Text) > 0 Then Text2.text= "正数"
If Val(Text1.Text) < 0 Then Text2.text = "负数"
If Val(Text1.Text) = 0 Then Text2.text = 0
End Sub
2.
Private Sub Command1_Click()
Dim t As String
t= Text1.Text
text1.text = Text2.Text
Text2.text=t
End Sub
3.
花了一段时间就会发现规律 数字的最前面一位就是1,2,3,4,5...后面的几位是2,3,5,8,12,17...规律2+1=3,3+2=5,5+3=8...都是前面一个数字依次加1,2,3,4,5....下面是我写的代码
Private Sub Form_Click()
Dim i As Integer, k As Integer
Dim sun As Single, n As Integer
Dim a() As Integer
n = InputBox("输入N", "提示", 5)
ReDim a(n) As Integer
k = 2: Sum = 0 '初始值为2和下面k=k+i-1是根据规律算出来的
For i = 1 To n
k = k + i - 1 'k是后面的数字
a(i) = Val(i & k) 'i是首位数字
Print a(i);
Sum = Sum + a(i)
Next i
Print ' 换行
Print Sum
End Sub
4.
Private Sub Form_Click()
Dim i As Integer
Dim sun As Single, fact As Single
n = InputBox("输入N", "提示", 5)
fact = 1
For i = 1 To n
fact = fact * i
Sum = Sum + 1 / fact
Next i
Print Sum
End Sub
5.
Private Sub Form_click()
Dim a(9) as integer,i as integer
maxa = a(1) '指针 maxa里面永远放最大的数
For i = 0 To 9
a(i) = Int(Rnd * 801 ) + 200
Print a(i);
If a(i) > maxa Then maxa = a(i)
Next i
Print "最大="; maxa
End Sub

Answer 2

1.
Private Sub Command1_Click()
If Val(Text1.Text) > 0 Then Text2 = "正数"
If Val(Text1.Text) < 0 Then Text2 = "负数"
If Val(Text1.Text) = 0 Then Text2 = 0
End Sub
2.
Private Sub Command1_Click()
Dim a(2) As String
a(1) = Text1.Text
a(2) = Text2.Text
Text1 = a(2)
Text2 = a(1)
End Sub
3.……看不懂
4.……看不懂
5.
Private Sub Form_click()
Dim a(9), i%, maxa
maxa = a(1)
For i = 0 To 9
a(i) = Int(Rnd * 801 + 200)
Print a(i)
If a(i) > maxa Then maxa = a(i)
Next i
Print "最大="; maxa
End Sub
新手，请多指教……

Answer 3

是啊，这样不编程如何行，百度可是讨论的地方，不是偷懒的地方啊。把你的得分全用来奖励吧，看来会帮你搞定的。

Answer 4

你也太懒了,作业都不做?抄同学吧?没100分奖励没人会帮你做的

Answer 5

汗
难哦