《中国石油大学华东vb练习题10至15周程序题总括.doc》由会员分享，可在线阅读，更多相关《中国石油大学华东vb练习题10至15周程序题总括.doc（36页珍藏版）》请在金锄头文库上搜索。
1、1、（1）Private Sub Command1_Click()Text3.Text = 2 * (Val(Text1.Text) + Val(Text2.Text)Text4.Text = Val(Text1.Text) * Val(Text2.Text)End Sub（2）Private Sub Command1_Click()Text3.Text = Str(2 * (Val(Text1.Text) + Val(Text2.Text)Text4.Text = Str(Val(Text1.Text) * Val(Text2.Text)End Sub（3）Private Sub Comma
2、nd1_Click()Dim c As Double, k As Double, z As Double, m As Doublec = Val(Text1.Text)k = Val(Text2.Text)z = 2 * (c + k)m = c * kText3.Text = Str(z)Text4.Text = Str(m)End Sub2、（1）Private Sub Command1_Click() Text2.Text = 2 * 3. * Val(Text1.Text) Text3.Text = 3. * Val(Text1.Text) 2 End Sub（2）Private Su
3、b Command1_Click() Text2.Text = Str(2 * 3. * Val(Text1.Text) Text3.Text = Str(3. * Val(Text1.Text) 2) End Sub（3）Private Sub Command1_Click() r = Val(Text1.Text) p = 2 * 3. * r s = 3. * r 2 Text2 = p Text3 = sEnd Sub3、（1）Private Sub Command1_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Su
4、b（2）Private Sub Command1_Click()Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text)End Sub（3）Private Sub Command1_Click()Dim rmb As Double, bl As Double, my As Doublermb = Val(Text1.Text)bl = Val(Text2.Text)my = rmb / blText3.Text = Str(my)End Sub1、在上方文本框Text1中输入任意2位数，单击“处理”按钮Command1，将这个两位数逆序输出到下方文本
5、框Text2中。 Private Sub Command1_Click()ys = Val(Text1.Text)ns = (ys Mod 10) * 10 + (ys 10)Text2.Text = nsEnd SubPrivate Sub Command1_Click()ys = Text1.Textns = Right(ys, 1) & Left(ys, 1)Text2.Text = nsEnd SubPrivate Sub Command1_Click()ys = Text1.Textns = Mid(ys, 2, 1) & Mid(ys, 1, 1)Text2.Text = nsEn
6、d Sub2、在上方文本框Text1中写入普通手机号码，点击转换按钮Command1，将普通手机号码转为加横线的手机号码写入Text2文本框中。相反，在下方文本框Text2中写入加横线的手机号码，点击反转按钮Command2，将加横线的手机号码转为普通手机号码写入Text1文本框中。 Private Sub Command1_Click()yhm = Text1.Textxhm = Mid(yhm, 1, 3) & - & Mid(yhm, 4, 4) & - & Mid(yhm, 8, 4)Text2.Text = xhmEnd SubPrivate Sub Command2_Click()
7、yhm = Text2.Textxhm = Mid(yhm, 1, 3) & Mid(yhm, 5, 4) & Right(yhm, 4)Text1.Text = xhmEnd Sub3、在文本框Text1中写入一字符串，点击处理按钮Command1，则将Text1中所有小写字母转换为大写字母，结果写入文本框Text2中，并计算Text1中字符个数写入文本框Text3中。 Private Sub Command1_Click()yzf = Text1.Textxzf = UCase(yzf)zfgs = Len(yzf)Text2.Text = xzfText3.Text = zfgsEnd
8、Sub4、在txtChinese、txtMath文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmdComp，程序计算出总分和平均分，分别放入txtSum、txtAvg文本框中；单击“清空”按钮cmdClear，将4个文本框清空。 Private Sub cmdClear_Click()txtChinese.Text = txtMath.Text = txtSum.Text = txtAvg.Text = End SubPrivate Sub cmdComp_Click()zf = Val(txtChinese.Text) + Val(txtMath.Text)pjf = zf /
9、 2txtSum.Text = zftxtAvg.Text = pjfEnd Sub1、在文本框txtName中输入姓名，点击按钮“你输入的姓名是”(Command1)，在旁边的标签lblName中显示txtName输入的姓名 Private Sub Command1_Click()lblName.Caption = txtName.TextEnd Sub2、单击窗体时，选中文本框Text1中的第2第4个字符，复制到文本框Text2中 Private Sub Form_Click()Text1.SelStart = 1Text1.SelLength = 3Text2.Text = Text1.
10、SelTextEnd Sub3、点击“密码字符”按钮Command1，使Text1中的内容用*显示 点击“原始文本”按钮Command2，使Text1中的内容恢复正常显示 点击“锁定文本框”按钮Command3，将文本框Text1锁定 点击“解锁文本框”按钮Command4，将文本框Text1取消锁定 点击“文本框无效”按钮Command5，使文本框Text1无效 点击“文本框有效”按钮Command6，将文本框Text1有效 此外，在文本框Text1中输入删除修改内容时，文本框Text2内容始终与Text1保持一致 Private Sub Command1_Click()Text1.Pass
11、wordChar = *End SubPrivate Sub Command2_Click()Text1.PasswordChar = End SubPrivate Sub Command3_Click()Text1.Locked = TrueEnd SubPrivate Sub Command4_Click()Text1.Locked = FalseEnd SubPrivate Sub Command5_Click()Text1.Enabled = FalseEnd Sub4、程序运行时，在Text1中填入文字，在Text2中填入正整数字号 点击“增大字号”按钮Command1，使Text1
12、的字号增大Text2中指定的数值 点击“减小字号”按钮Command2，使Text1的字号减小Text2中指定的数值 点击“设置字号”按钮Command3，使Text1的字号设置为Text2中指定的数值 Private Sub Command1_Click()Text1.FontSize = Text1.FontSize + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.FontSize = Text1.FontSize - Val(Text2.Text)End SubPrivate Sub Command3_Click()Te
13、xt1.FontSize = Val(Text2.Text)End Sub5、用户单击窗体时，文本框Text1的值在其原值基础上递增加1。程序运行起始时次数为0（文本框初始值为0）。 Private Sub Form_Click()Text1.Text = Val(Text1.Text) + 1End SubPrivate Sub Form_Load()Text1.Text = 0End Sub6、点击“复制文本”按钮Command1，将Text1中的内容复制到Text2中 点击“复制选中文本”按钮Command2，将Text1中选中的内容复制到Text2中 点击“隐藏文本框”按钮Comman
14、d3，将文本框Text1隐藏 点击“显示文本框”按钮Command4，将文本框Text1显示（取消隐藏） Private Sub Command1_Click()Text2.Text = Text1.TextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command3_Click()Text1.Visible = FalseEnd SubPrivate Sub Command4_Click()Text1.Visible = TrueEnd Sub7、“向上移动”、“向下移动”、“
15、向左移动”、“向右移动”四个按钮的控件名分别为Command1Command4。单击按钮，窗体向对应的方向移动100个单位 Private Sub Command1_Click()Form1.Top = Form1.Top - 100End SubPrivate Sub Command2_Click()Form1.Top = Form1.Top + 100End SubPrivate Sub Command3_Click()Form1.Left = Form1.Left - 100End SubPrivate Sub Command4_Click()Form1.Left = Form1.Left + 100End Sub8、单击“产生”命令按钮Command1，在上面三个文本框Text1
