Question

vb题目 望懂的人写下答案 感激不敬！！！！ 明天就要交了 谢谢

1.在窗体上画一个名称为Command1的命令按钮、三个名称为Text1～Text3的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = 0
x = 1
y = 0
Do While x < 20
n = n + 1
y = x + y
x = x * (x + 1)
Loop
Text1.Text = "n=" & Str(n)
Text2.Text = "x=" & Str(x)
Text3.Text = "y=" & Str(y)
End Sub
程序运行后，单击Command1，分别写出文本框Text1、Text2和Text3中显示的内容。
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As String
Dim i As Integer, n As Integer
x = "ABCDEFGHKL"
n = Len(x)
For i = n To 1 Step -2
Print Mid(x, i, 1);
Next i
End Sub
程序运行后，单击Command1，写出在窗体上显示的内容。
3.在窗体上画一个名称为Command1的命令按钮、一个名称为List1的列表框，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 6
List1.AddItem i
Next i
For i = 1 To 3
List1.RemoveItem i
Next i
End Sub
程序运行后，单击Command1，按从上往下的顺序写出在列表框中包含的所有选项的内容。
4.在窗体上画一个名称为Command1的命令按钮、一个名称为Combo11的列表框，一个名称为Hscroll1的滚动条，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text = "abcdef"
HScroll1.Max = 5
HScroll1.Min = 1
HScroll1.SmallChange = 1
HScroll1.Value = 1
Combo1.Clear
End Sub
Private Sub HScroll1_Change()
Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0
End Sub
程序运行时，连续3次单击Hscroll1的右侧箭头后，分别写出组合框Combo11的第1项、第2项、第3项的内容。
五、程序设计题（本大题共2小题，每小题10分，共20分）
1.在窗体上画四个文本框，名称分别为Text1、Text2、Text3和Text4，再画一个名称为Command1的命令按钮。程序运行后，首先在Text1～Text3中输入三角形三条边的边长，如果这三条边长能构成三角形，单击Command1后，将在Text4中显示出该三角形的面积；否则单击Command1后，将显示一个对话框，给出“这三条边长不能构成三角形，请重新输入”的提示信息，同时将Text1～Text3中的内容清空。试编写程序实现以上功能。
2.在窗体上画一个名称为Command1的命令按钮，一个名称为Label11的标签。程序运行后，当单击命令按钮Command1时，首先显示一个对话框，要求输入一个正整数n的值，在该对话框中输入n的值后，程序随机产生n个两位正整数，试编写程序求出其中的偶数之和，并在标签Label1上显示出来。

Answer 1

1. Text1显示：n= 3；Text2显示：x= 42；Text3显示：y= 9
2. 窗体上显示：LHFDB
3. 列表框从上往下： 1；3；5
4. 组合框第1项：abcd；第2项：abc；第3项：ab
五
1.
Option Explicit
Private Sub Command1_Click()
Text4.Text = 0
Dim a As Single, b As Single, c As Single
Dim s As Single
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = CSng(Text3.Text)
If a + b - c <= 0 Or a + c - b <= 0 Or b + c - a <= 0 Then
MsgBox "这三条边长不能构成三角形，请重新输入！"
Exit Sub
End If
s = (a + b + c) / 2
Text4.Text = Sqr(s * (s - a) * (s - b) * (s - c))
End Sub

2.
......

Answer 2

1、text1：n= 3
text2：x= 42
text3：y= 9
2、LHFDB
3、1、3、5
4、abcd
abc
ab