1编程题编程题1 1、编写程序求正方形的周长。要求：正方形的边长由输入框（、编写程序求正方形的周长。要求：正方形的边长由输入框（InputBoxInputBox 函数）输入，结函数）输入，结 果显示在窗体上，格式为：周长果显示在窗体上，格式为：周长=。Private Sub Form_Click() Dim a As Single, b As Single a = Val(InputBox(“边长“) b = 4 * a Print bEnd Sub2、编写程序求某学生期末三门课程的平均成绩。要求，三门课程的成绩由文本框输入，结、编写程序求某学生期末三门课程的平均成绩。要求，三门课程的成绩由文本框输入，结 果显示在文本框中。果显示在文本框中。 （界面如图所示）（界面如图所示）Private Sub Command1_Click()Dim a As interger, b As interger, c As interger, d As Integera = Val(text1.Text)b = Val(text2.Text)c = Val(text3.Text)d = (a + b + c) / 3text4.Text = dPrint dEnd Sub3、设计一个计算购书价的程序。、设计一个计算购书价的程序。 （界面如图所示）（界面如图所示）Private Sub Command1_Click()text3.Text = Val(text1.Text) * Val(text2.Text) End SubPrivate Sub Command2_Click()End End SubText1Text2Text3Text4Command1Text1Text2Text3Command124、编写程序交换两个变量、编写程序交换两个变量 x 和和 y 的值。要求，变量的值。要求，变量 x 和和 y 的值由输入框（的值由输入框（InputBox 函数）函数） 输入，交换结果显示在窗体上。输入，交换结果显示在窗体上。 （界面如图所示）（界面如图所示）Private Sub Form_Click() Dim t As interger x = Val(InputBox(“输入“) y = Val(InputBox(“输入“) t = x + y x = t - x y = t - y print “x=” h1 Print “大于 40 小于等于 70 数据的个数“; h2 Print “大于 70 数据的个数“; h3End Sub920、编写程序实现：随机生成、编写程序实现：随机生成 20 个个 100 以内的正整数，将其中的奇数和偶数分两行显示在以内的正整数，将其中的奇数和偶数分两行显示在 窗体上。窗体上。For i = 1 To 20Ramdomizesis = Int(Rnd * 100 + 1)If sis Mod 2 = 0 Thena = a & Space(2) & sisElseb = b & Space(2) & sisEnd IfPrint “奇数：“ & aPrint “偶数：“ & b