Question

这道VB题怎么做

在名称为Forml的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“书名”和“作者”）， 两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1,标题为“显示”) 。 然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图 所示。

Answer 1

Private Sub Command1_Click()
Form1.Caption = Text1.Text & “，作者 " & Text2.Text
End Sub

Answer 2

双击显示按钮,添加如下代码:
Me.Text = Me.Text1.Text & "，作者 " & Text2.Text

Answer 3

2楼的可以，1楼的有点问题，me没有TEXT的属性，应该是：
Private Sub Command1_Click()
Me.Caption = Me.Text1.Text & "，作者 " & Text2.Text
End Sub

Answer 4

VS2010的代码：双击显示按钮,添加如下代码:
Me.Text = Me.Text1.Text & "，作者 " & Text2.Text

Answer 5

较简单,一会儿发给你.
Private Sub Command1_Click()
Dim a(1 To 25) As Integer
For i = 1 To 25
a(i) = 0
Next

i = 40
j = 1
k = 1

Do
If j = 26 Then j = 1

If k Mod 3 = 0 Then
a(j) = a(j) + 1
i = i - 1

End If
k = k + 1
j = j + 1
Loop While i > 0

maxval = a(1)
maxindex = 1
For i = 2 To 25
If maxval < a(i) Then
maxval = a(i)
maxindex = i
End If
Next

MsgBox "最多的小朋友" & maxindex & ",共" & maxval & "个"
Text1 = ""
For i = 1 To 25
Text1.Text = Text1.Text & "[" & i & "]" & a(i) & " "
Next
End Sub