上机操作题答案11..docVIP

=============================模块================================ 第1题： 新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\221\”文件夹下。按下表的要求添加控件，并设置其属性，操作后保存！ 对象 对象名 属性名 属性值 Label Label1 Caption 长 Label Label2 Caption 宽 TextBox Text1 Text 3厘米 TextBox Text2 Text 4厘米 CommandButton Command1 Caption 求长方形周长 第2题： 打开考生目录VB\143\文件夹中的文件：d1.vbp 进行以下操作后并保存！ 在VB代码窗口指定位置修改完善程序代码实现，求1到50之间所有的奇数和。 Dim i As Integer Dim s As Integer s = 0 For i = 1 To 50 Step 2 s = s + i Next i Print 1到50之间所有的奇数和：; s 第3题： 打开考生目录VB\150\文件夹中的文件：k3.vbp进行以下操作后并保存！ 在窗体k3.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：从text1文本框中输入一个数，判断能否被3整除，并在text2文本框中输出结果能或不能。 a = Val(Text1.Text) If a Mod 3 = 0 Then Text2.Text = 能 Else Text2.Text = 不能 End If 测试数据 在text1文本框中输入9，在text2文本框中输出：能； 在text1文本框中输入8，在text2文本框中输出：不能。 第4题： 新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\148\”文件夹下。 按下表的要求添加控件，并设置其属性，操作后保存！ 对象 对象名 属性名 属性值 Label Label1 Caption 电视机 Label Label2 Caption 洗衣机 TextBox Text1 Text 12件 TextBox Text2 Text 13件 CommandButton Command1 Caption 总数 . 第5题： 新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\151\”文件夹下。 按下表的要求添加控件，并设置其属性，操作后保存！ 对象 对象名 属性名 属性值 Label Label1 Caption 选修1 Label Label2 Caption 选修2 TextBox Text1 Text 45 TextBox Text2 Text 38 CommandButton Command1 Caption 计算总人数 第6题： 新建一个VB工程，工程文件名称为：“工程1.vbp”，并添加一个窗体文件：“Form1.frm”，保存在“考生文件夹VB\153\”文件夹下。 按下表的要求添加控件并置其属性，操作后保存！ 对象 对象名 属性名 属性值 Label Label1 Caption 用户名 Label Label2 Caption 密码 TextBox Text1 Text 李辉 TextBox Text2 Text ****** CommandButton Command1 Caption 登录 第7题： 打开考生目录VB\154\文件夹中的文件：k4.vbp进行以下操作后并保存！ 在窗体k4.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：从text1文本框中输入一个数,判断这个数是否为零或正负整数，并在text2文本框中输出结果。 测试数据 在text1文本框中输入0，在text2输出:0。 在text1文本框中输入2，在text2输出:正数。 在text1文本框中输入-2，在text2输出:负数。 Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) If a = 0 Then Text2.Text = 0 If a 0 Then Text2.Text = 正数 If a 0 Then Text2.Text = 负数 End Sub