程序题总括.docx

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

2、Command1_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.1415926 * Val(Text1.Text) Text3.Text = 3.1415926 * Val(Text1.Text) 2 E

3、nd Sub（2）Private Sub Command1_Click() Text2.Text = Str(2 * 3.1415926 * Val(Text1.Text) Text3.Text = Str(3.1415926 * Val(Text1.Text) 2) End Sub（3）Private Sub Command1_Click() r = Val(Text1.Text) p = 2 * 3.1415926 * r s = 3.1415926 * r 2 Text2 = p Text3 = sEnd Sub3、（1）Private Sub Command1_Click()Text3

4、.Text = Val(Text1.Text) / Val(Text2.Text)End Sub（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、在上方文本

5、框Text1中输入任意2位数，单击“处理”按钮Command1，将这个两位数逆序输出到下方文本框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 =

6、Mid(ys, 2, 1) & Mid(ys, 1, 1)Text2.Text = nsEnd 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

7、 = xhmEnd SubPrivate Sub Command2_Click()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(y

8、zf)Text2.Text = xzfText3.Text = zfgsEnd 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(txtChin

9、ese.Text) + Val(txtMath.Text)pjf = zf / 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 =

10、1Text1.SelLength = 3Text2.Text = Text1.SelTextEnd Sub3、点击“密码字符”按钮Command1，使Text1中的内容用*显示 点击“原始文本”按钮Command2，使Text1中的内容恢复正常显示 点击“锁定文本框”按钮Command3，将文本框Text1锁定 点击“解锁文本框”按钮Command4，将文本框Text1取消锁定 点击“文本框无效”按钮Command5，使文本框Text1无效 点击“文本框有效”按钮Command6，将文本框Text1有效 此外，在文本框Text1中输入删除修改内容时，文本框Text2内容始终与Text1保持一致

11、 Private Sub Command1_Click()Text1.PasswordChar = *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中填入文字，在

12、Text2中填入正整数字号 点击“增大字号”按钮Command1，使Text1的字号增大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.Tex

13、t)End SubPrivate Sub Command3_Click()Text1.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，

14、将Text1中选中的内容复制到Text2中 点击“隐藏文本框”按钮Command3，将文本框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

15、.Visible = TrueEnd Sub7、“向上移动”、“向下移动”、“向左移动”、“向右移动”四个按钮的控件名分别为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

16、 Command4_Click()Form1.Left = Form1.Left + 100End Sub8、单击“产生”命令按钮Command1，在上面三个文本框Text1Text3中分别输出随机产生的3个正整数，其中1个1位数（09），1个2位数，1个3位数。单击“计算”命令按钮Command2计算它们的平均值，四舍五入保留2位小数，结果在标签LabelAvg中显示。 注意：本题需使用AB区间随机整数公式。随机函数请使用Rnd()，不要省略括号。Private Sub Command1_Click()Dim w1%, w2%, w3%Randomizew1 = Int(9 - 0 + 1)

17、 * Rnd() + 0)w2 = Int(99 - 10 + 1) * Rnd() + 10)w3 = Int(999 - 100 + 1) * Rnd() + 100)Text1.Text = w1Text2.Text = w2Text3.Text = w3End SubPrivate Sub Command2_Click()Dim w1%, w2%, w3%, pjz#w1 = Val(Text1.Text)w2 = Val(Text2.Text)w3 = Val(Text3.Text)pjz = (w1 + w2 + w3) / 3pjz = Round(pjz, 2)LabelAvg

18、.Caption = pjzEnd Sub9、在文本框Text1中写入一字符串，点击处理按钮Command1，则将Text1中所有小写字母转换为大写字母，结果写入文本框Text2中，并计算Text1中字符个数写入文本框Text3中。 Private Sub Command1_Click()Text2.Text = UCase(Text1.Text)Text3.Text = Len(Text1.Text)End Sub10、在上方文本框Text1中写入普通手机号码，点击转换按钮Command1，将普通手机号码转为加横线的手机号码写入Text2文本框中。相反，在下方文本框Text2中写入加横线的手

19、机号码，点击反转按钮Command2，将加横线的手机号码转为普通手机号码写入Text1文本框中。 Private Sub Command1_Click()Text2.Text = Left(Text1.Text, 3) &-& Mid(Text1.Text, 4, 4) &-& Right(Text1.Text, 4)End SubPrivate Sub Command2_Click()Text1.Text = Left(Text2.Text, 3) & Mid(Text2.Text, 5, 4) & Right(Text2.Text, 4)End Sub1、单击“产生”命令按钮Command

20、1，在上面三个文本框Text1Text3中分别输出随机产生的3个正整数，其中1个1位数（09），1个2位数，1个3位数。单击“计算”命令按钮Command2计算它们的平均值，四舍五入保留2位小数，结果在标签LabelAvg中显示。 注意：本题需使用AB区间随机整数公式。随机函数请使用Rnd()，不要省略括号。Private Sub Command1_Click()Dim w1&, w2&, w3&Randomizew1 = Int(9 - 0 + 1) * Rnd() + 0)w2 = Int(99 - 10 + 1) * Rnd() + 10)w3 = Int(999 - 100 + 1)

21、* Rnd() + 100)Text1.Text = w1Text2.Text = w2Text3.Text = w3End SubPrivate Sub Command2_Click()Dim w1&, w2&, w3&, pjz#w1 = Val(Text1.Text)w2 = Val(Text2.Text)w3 = Val(Text3.Text)pjz = Round(w1 + w2 + w3) / 3, 2)LabelAvg.Caption = pjzEnd Sub2、在txtChinese、txtMath文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmdComp，程序计

22、算出总分和平均分，分别放入txtSum、txtAvg文本框中；单击“清空”按钮cmdClear，将4个文本框清空。 Private Sub cmdClear_Click()txtChinese.Text = txtMath.Text = txtSum.Text = txtAvg.Text = End SubPrivate Sub cmdComp_Click()Dim yw As Double, sx As DoubleDim zf As Double, pjf As Doubleyw = Val(txtChinese.Text)sx = Val(txtMath.Text)zf = yw + s

23、xpjf = zf / 2txtSum.Text = zftxtAvg.Text = pjfEnd Sub3、已知火车的出发时间和达到时间，编写程序计算整个旅途所用的时间。出发时间对应的文本框为Text1和Text2，到达时间对应的文本框为Text3和Text4，旅途时间对应的文本框为Text5和Text6，计算按钮为Command1。（时间形式：小时:分钟，24小时制） Private Sub Command1_Click()Dim cfs%, cff%, dds%, ddf%, ltsj%Dim lts%, ltf%cfs = Val(Text1.Text)cff = Val(Text2.

24、Text)dds = Val(Text3.Text)ddf = Val(Text4.Text)ltsj = (dds * 60 + ddf) - (cfs * 60 + cff)lts = ltsj 60ltf = ltsj Mod 60Text5.Text = ltsText6.Text = ltfEnd Sub4、在上方文本框Text1中输入任意3位数，单击“处理”按钮Command1，将这个3位数逆序输出到下方文本框Text2中。 Private Sub Command1_Click()Dim ys%, b%, s%, g%, ns%ys = Val(Text1.Text)b = Int

25、(ys / 100)s = Int(ys - b * 100) / 10)g = ys - b * 100 - s * 10ns = g * 100 + s * 10 + bText2.Text = nsEnd Sub5、已知火车的出发时间和旅途所用的时间，编写程序计算火车达到的时间。出发时间对应的文本框为Text1和Text2，旅途所用的时间对应的文本框为Text3和Text4，到达时间对应的文本框为Text5和Text6，计算按钮为Command1。（时间形式：小时:分钟，24小时制） Private Sub Command1_Click()Dim cfs%, cff%, lts%, lt

26、f%, ddsj%Dim dds%, ddf%cfs = Val(Text1.Text)cff = Val(Text2.Text)lts = Val(Text3.Text)ltf = Val(Text4.Text)ddsj = (cfs * 60 + cff) + (lts * 60 + ltf)dds = ddsj 60ddf = ddsj Mod 60Text5.Text = ddsText6.Text = ddfEnd Sub1、用户单击交换按钮Command1，交换2个文本框Text1和Text2的内容 Private Sub Command1_Click()Dim temp$temp

27、 = Text1.TextText1.Text = Text2.TextText2.Text = tempEnd Sub2、点击按钮Command1，程序分别输入矩形的长和宽，输出矩形的周长和面积，结果保留2位小数。使用InputBox和MsgBox完成输入输出。（第一次输出矩形周长，第二次输出矩形面积）Private Sub Command1_Click()Dim c#, k#, p#, s#c = Val(InputBox(c=?)k = Val(InputBox(k=?)p = Round(2 * (c + k)s = Round(c * k, 2)MsgBox str(p)MsgBox

28、 str(s)End Sub3、点击按钮Command1，程序输入圆的半径，输出圆的周长和面积，结果保留2位小数。使用InputBox和MsgBox完成输入输出。（PI为3.14，第一次输出圆周长，第二次输出圆面积）Private Sub Command1_Click()Dim r#, s#, p#r = Val(InputBox(r=?)p = Round(2 * 3.14 * r, 2)s = Round(3.14 * r * r, 2)MsgBox str(p)MsgBox str(s)End Sub4、在文本框Text1中输入1个小写英文字母，点击加密按钮Command1，则将该英文字

29、母变为字母表中其后面的一个字母放入文本框Text2中，如a改为b，m改为n，z改为a，以此类推。点击解密按钮Command2，将文本框Text2中字母解密后放入Text1中。 Private Sub Command1_Click()Dim yw As String * 1, mw As String * 1yw = Text1.Textmw = Chr(97 + (Asc(yw) - 97 + 1) Mod 26)或Chr(Asc(“a”) + (Asc(yw) - Asc(“a”)+ 1) Mod 26)Text2.Text = mwEnd SubPrivate Sub Command2_C

30、lick()Dim yw As String * 1, mw As String * 1mw = Text2.Textyw = Chr(122 + (Asc(mw) - 122 - 1) Mod 26) 或Chr(Asc(“z”) + (Asc(mw) - Asc(“z”) - 1) Mod 26)Text1.Text = ywEnd Sub5、在文本框Text1中输入1个小写英文字母，点击加密按钮Command1，则将该英文字母变为字母表中其后面的第N个字母放入文本框Text2中，N表示加密方法，由Text3中的值指定。如N为2，则a加密后变为c，z加密后变为b，以此类推。点击解密按钮Command2，将文本框Text2中字母解密后放入Text1中。 Private Sub Command1_Click()Dim yw As String * 1, mw As String, fa As Integeryw = Text1.Textfa = Val(Text3.Text)mw = Chr(97 + (Asc(yw) - 97 + fa) Mod 26) 或Chr(Asc(“a”) + (Asc(yw) - Asc(“a”)+ fa) Mod 26)Text2.Text = mwEnd Sub