资源描述
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 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 End 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.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、在上方文本框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 = 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 = 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(yzf)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(txtChinese.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 = 1Text1.SelLength = 3Text2.Text = Text1.SelTextEnd Sub3、点击“密码字符”按钮Command1，使Text1中的内容用*显示 点击“原始文本”按钮Command2，使Text1中的内容恢复正常显示 点击“锁定文本框”按钮Command3，将文本框Text1锁定 点击“解锁文本框”按钮Command4，将文本框Text1取消锁定 点击“文本框无效”按钮Command5，使文本框Text1无效 点击“文本框有效”按钮Command6，将文本框Text1有效 此外，在文本框Text1中输入删除修改内容时，文本框Text2内容始终与Text1保持一致 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中填入文字，在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.Text)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，将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.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 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) * 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.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中写入加横线的手机号码，点击反转按钮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、单击“产生”命令按钮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) * 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 = Round(w1 + w2 + w3) / 3, 2)LabelAvg.Caption = pjzEnd Sub2、在txtChinese、txtMath文本框中分别输入“语文”和“数学”的成绩，单击“计算”按钮cmdComp，程序计算出总分和平均分，分别放入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 + sxpjf = 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.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(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%, ltf%, 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 = 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 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，则将该英文字母变为字母表中其后面的一个字母放入文本框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_Click()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 SubPrivate Sub Command2_Click()Dim yw As String * 1, mw As String, fa As Integermw = Text2.Textfa = Val(Text3.Text)yw = Chr(122 + (Asc(mw) - 122 - fa) Mod 26) 或Chr(Asc(“z”) + (Asc(mw) - Asc(“z”) - fa) Mod 26)Text1.Text = ywEnd Sub6、在文本框Text1中输入3个小写英文字母，点击加密按钮Command1，则将每个字母改为英文字母表a-z中对应的第N个字母放入文本框Text2中，N表示加密方法，由Text3中的值指定。如N为2，则abz加密后变为cdb。点击解密按钮Command2，将文本框Text2中字母解密后放入Text1中。 Private Sub Command1_Click()Dim yw As String * 3, y1$, y2$, y3$Dim mw As String * 3, m1$, m2$, m3$Dim fa%yw = Text1.Text: fa = Val(Text3.Text)y1 = Left(yw, 1): y2 = Mid(yw, 2, 1): y3 = Right(yw, 1)m1 = Chr(97 + (Asc(y1) - 97 + fa) Mod 26) 或Chr(Asc(“a”) + (Asc(y1) - Asc(“a”)+ fa) Mod 26)m2 = Chr(97 + (Asc(y2) - 97 + fa) Mod 26) 或Chr(Asc(“a”) + (Asc(y2) - Asc(“a”)+ fa) Mod 26)m3 = Chr(97 + (Asc(y3) - 97 + fa) Mod 26) 或Chr(Asc(“a”) + (Asc(y3) - Asc(“a”)+ fa) Mod 26)mw = m1 & m2 & m3Text2.Text = mwEnd SubPrivate Sub Command2_Click()Dim yw As String * 3, y1$, y2$, y3$Dim mw As String * 3, m1$, m2$, m3$Dim fa%mw = Text2.Text: fa = Val(Text3.Text)m1 = Left(mw, 1): m2 = Mid(mw, 2, 1): m3 = Right(mw, 1)y1 = Chr(122 + (Asc(m1) - 122 - fa) Mod 26) 或Chr(Asc(“z”) + (Asc(m1) - Asc(“z”) - fa) Mod 26)y2 = Chr(122 + (Asc(m2) - 122 - fa) Mod 26) 或Chr(Asc(“z”) + (Asc(m2) - Asc(“z”) - fa) Mod 26)y3 = Chr(122 + (Asc(m3) - 122 - fa) Mod 26) 或Chr(Asc(“z”) + (Asc(m3) - Asc(“z”) - fa) Mod 26)yw = y1 & y2 & y3Text1.Text = ywEnd Sub7、点击按钮Command1，程序输入x，通过分段函数计算并输出y。使用InputBox和MsgBox完成输入输出。 Private Sub Command1_Click()Dim x As Double, y As Doublex = Val(InputBox(x=?)If x 0 Then y = x * xIf x = 0 Then y = -xMsgBox yEnd Sub8、上下两个文本框分别为Text1和Text2，在两个文本框中任意输入2个整数，点击交换按钮Command1，将2个数按照大小顺序放好 Private Sub Command1_Click()Dim x As Integer, y As Integer, temp As Integerx = Val(Text1.Text)y = Val(Text2.Text)If x 0 Then y = x * xElse y = -xEnd IfMsgBox str(y)End Sub4、点击按钮Command1，程序分别输入语文、数学、英语的成绩，输出及格课程平均成绩。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim yw#, sx#, yy#, n%, s#, p#yw = Val(InputBox(yw=?)sx = Val(InputBox(sx=?)yy = Val(InputBox(yy=?)n = 0If yw = 60 Then n = n + 1: s = s + ywIf sx = 60 Then n = n + 1: s = s + sxIf yy = 60 Then n = n + 1: s = s + yyIf n 0 Then p = s / n Else p = 0MsgBox str(p)End Sub5、点击按钮Command1，程序输入一个四位数，判断千位、百位、十位和个位数字之和是否为偶数，偶数输出Yes，否则输出No。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim x%, q%, b%, s%, g%x = Val(InputBox(x=?)q = Int(x / 1000)b = Int(x - q * 1000) / 100)s = Int(x - q * 1000 - b * 100) / 10)g = x - q * 1000 - b * 100 - s * 10If (q + b + s + g) Mod 2 = 0 Then MsgBox YesElse MsgBox NoEnd IfEnd Sub1、点击按钮Command1，程序分别输入3个整数，输出最大值。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim a%, b%, c%, max%a = Val(InputBox(a=?)b = Val(InputBox(b=?)c = Val(InputBox(c=?)max = aIf b max Then max = bIf c max Then max = cMsgBox maxEnd Sub2、点击按钮Command1，程序分别输入3个整数，输出最小值。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim a%, b%, c%, min%a = Val(InputBox(a=?)b = Val(InputBox(b=?)c = Val(InputBox(c=?)min = aIf b min Then min = bIf c = 100 Then zhf = yyhf + xjhf + 8Else zhf = yyhf + xjhf + xjhf * 0.05End IfMsgBox str(zhf)End Sub4、根据三角形的三边，通过海伦公式可求三角形面积。点击按钮Command1，程序输入三角形三边长，如果能构成三角形则输出其面积，否则输出字符串Error。使用InputBox和MsgBox完成输入输出。 提示： 海伦公式为： Private Sub Command1_Click()Dim a#, b#, c#, p#, s#a = Val(InputBox(a=?)b = Val(InputBox(b=?)c = Val(InputBox(c=?)If a + b c And b + c a And a + c b Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) MsgBox str(s)Else MsgBox ErrorEnd IfEnd Sub5、点击按钮Command1，程序分别输入4个整数，输出最小值。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim a%, b%, c%, d%, min%a = Val(InputBox(a=?)b = Val(InputBox(b=?)c = Val(InputBox(c=?)d = Val(InputBox(d=?)min = aIf b min Then min = bIf c min Then min = cIf d max Then max = bIf c max Then max = cIf d max Then max = dMsgBox maxEnd Sub7、点击按钮Command1，程序分别输入三角型的三边边长（假设输入的三边边长均0），判断并输出三角形的形状。可能的三角形形状为以下4种：等边三角形，等腰三角形，一般三角形，不构成三角形。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim a#, b#, c#a = Val(InputBox(a=?)b = Val(InputBox(b=?)c = Val(InputBox(c=?)If a + b c And b + c a And a + c b Then If a = b And b = c Then MsgBox 等边三角形 ElseIf a = b Or b = c Or a = c Then MsgBox 等腰三角形 Else MsgBox 一般三角形 End IfElse MsgBox 不构成三角形End If End Sub8、点击按钮Command1，程序输入一个字符，可以是字母或数字0-9，输出其分类。如输入字符“a”，则输出“小写字母”；输入字符“A”，则输出“大写字母”；输入字符“1”，则输出“数字”。使用InputBox和MsgBox完成输入输出。Private Sub Command1_Click()Dim zf As String * 1zf = InputBox(zf=?)If zf = 0 And zf = a And zf = A And zf = Z Then MsgBox 大写字母Else MsgBox 其它字符End If End Sub
展开阅读全文