用vb创建一个窗体,窗体标题上显示自己的学号姓名,当单击命令按钮,在文本框中直接弹出2+4+...100偶数和的计算结果。
时间: 2024-03-09 11:45:19 浏览: 25
以下是用 VB 创建一个窗体,窗体标题上显示学号姓名,并在单击命令按钮时,在文本框中显示 2 到 100 之间的偶数和的计算结果的代码:
```vb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'在窗体加载时设置标题为学号姓名
Me.Text = "学号姓名"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'计算偶数和
Dim sum As Integer = 0
For i As Integer = 2 To 100 Step 2
sum += i
Next
'将结果显示在文本框中
TextBox1.Text = sum.ToString()
End Sub
End Class
```
在这段代码中,我们在窗体加载时使用 `Me.Text` 设置了窗体的标题为学号姓名。在单击命令按钮时,使用 `For` 循环计算了 2 到 100 之间的偶数和,并将结果转换为字符串后显示在文本框中。
相关问题
请创建一个窗体,窗体标题上显示自己的学号姓名,当单击命令按钮,在文本框中直接弹出2+4+....100偶数和的计算结果。
好的,以下是代码:
```vb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "学号姓名" '将窗体标题设置为学号姓名
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sum As Integer = 0 '定义变量sum用于记录偶数和
For i As Integer = 2 To 100 Step 2 '从2开始遍历到100,每次加2
sum += i '累加偶数
Next
TextBox1.Text = sum '将偶数和显示在文本框中
End Sub
End Class
```
需要注意的是,将学号姓名替换到代码中的 `"学号姓名"` 处,命令按钮的名称需要设置为 `Button1`,文本框的名称需要设置为 `TextBox1`。
vb中点击窗体1按钮弹出窗体2并中断窗体1功能,点击窗体2按钮关闭窗体2
在窗体1的按钮的 Click 事件中,添加以下代码:
```
Dim form2 As New Form2 '创建窗体2实例
form2.ShowDialog() '以模态方式弹出窗体2
Me.Enabled = False '禁用窗体1
```
在窗体2的按钮的 Click 事件中,添加以下代码:
```
Me.Close() '关闭窗体2
Form1.Enabled = True '启用窗体1
```
其中,Form1 是窗体1的名称,需要根据实际情况进行修改。