如何使用VB语言制作一个简单的调查表

魁首哥

作者

如何使用VB语言制作一个简单的调查表

小编给大家分享一下如何使用VB语言制作一个简单的调查表，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

一、案例要求

我们需要制作一个简单的调查表，要求如下：

1.form1窗体为启动窗体，通过窗体初始化时间将标题初始化为"调查表"。

2.制作窗体界面。

3.点击“上传”按钮，将把输入的“姓名”从form2窗体输出。将其它选中的控件文本输出到form2窗体。

界面如下：

界面1

界面2

二、知识要求

这里可能遇到的问题是不同窗体之间数据的传递问题。

那么，如何在form1中去改变form2的标题？

form2.caption="这里是要改变的内容"

需要补充的符号运用：

&符号的作用：将字符串类型的数据进行连接

;符号的作用：也是连接字符串，且会把下一行的print输出内容连接起来

提问：如何使得窗体居中显示？

1.选中form窗体

2.在属性中找到StartUpPosition属性选择2-屏幕中心

复选框checkbox

设置文本：caption属性
设置是否选中：value属性

value属性的值：0代表没有选中，1代表选中，2代表强制选中

单选框optionbutton

设置文本：caption属性
判断是否选中：value属性

value属性的值：true表示选中，false表示没有选中

本节知识form1窗体源代码：

Private Sub Command1_Click()Form2.ShowForm2.Caption = Text2.Text & "的调查表"Form2.Print "姓名：" & Text2.Text'梦想If Check1.Value = 1 Then Form2.Print "梦想：" & Check1.CaptionEnd IfIf Check2.Value = 1 Then Form2.Print "梦想：" & Check2.CaptionEnd IfIf Check3.Value = 1 Then Form2.Print "梦想：" & Text1.TextEnd If'性别If Option1.Value = True Then Form2.Print "性别：" & Option1.Caption End IfIf Option2.Value = True Then Form2.Print "性别：" & Option2.Caption End IfEnd SubPrivate Sub Form_Load()'作者：刘金玉'初始化form1窗体标题Form1.Caption = "调查表"End Sub