《11道编程题》由会员分享，可在线阅读，更多相关《11道编程题（9页珍藏版）》请在金锄头文库上搜索。
1、11道编程题1在窗体上输出100-200之间()包括100和200)不能被3整除的奇数及这些数的和。Private Sub Command1_Click()Form1.AutoRedraw = Trues = 0For i = 100 To 200If i Mod 2 Prints = s + iEnd IfNext iPrint sEnd SubPrivate Sub Form_Load()End Sub2.用Inputbox函数输入三个数，用print语句在窗体上打印出其中的最大值和最小值Private Sub Form_Click()t = Val(InputBox(请输入第 + Str
2、(1)Min = tMax = tFor i = 2 To 3t = Val(InputBox(请输入第 + Str(i)If t Max Then Max = tIf t Next iPrint max; Max, min; MinEnd Sub3.用Inputbox函数输入a,b,c的值，判定他们能否构成三角形。若能构成三角形，计算此三角形的面积。Private Sub Form_Click()a = Val(InputBox(第一边)b = Val(InputBox(第二边)c = Val(InputBox(第三边)If a + b c And a + c b And b + c a T
3、hen p = (a + b + c) / 2area = Sqr(p * (p - a) * (p - b) * (p - c) Print area; areaElseMsgBox 不能够成三角形End IfEnd Sub 4. 设计一个字体属性设置程序，界面如图所示。要求:程序运行后，当选择好相应的检查框和单选按钮，单击“确定”按钮后，标签的内容会发生相应变化，单击“取消”按钮则恢复默认设置。Private Sub Check2_Click()If Check2.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = F
4、alseEnd IfEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Option1_Click()Label1.FontName = 宋体End SubPrivate Sub Option2_Click()Label1.FontName = 黑体End SubPrivate Sub Option3_Click()Label1.FontSize = 10End SubPrivate Sub Option4_Click()Label1.FontSize = 12End Sub5.设计一个字符大小写转换程序，界面如图所示。当在文本框Text1中
5、输入大写字母，在文本框Text2中同时显示其小写字母；当在文本框Text1中输入小写字母，在文本框Text2中同时显示其大写字母；当输入其他字符，则在文本框Text2中原样输出。Private Sub Form_Click()Print Asc(a), Asc(z), Asc(A), Asc(Z) End SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim t As Stringt = Chr(KeyAscii)If KeyAs
6、cii = 65 And KeyAscii = 97 And KeyAscii End IfText2.Text = Text2.Text + tEnd Sub6，用Inputbox函数输入一个华氏温度F，程序可将其转换成为摄氏温度C，用消息框msgbox弹出。转换公式为C=59(F-32) Private Sub Form_Load()f = Val(InputBox(请输入华氏温度, 转换)c = 5 / 9 * (f - 32)t = MsgBox(转换后的摄氏温度 + Str(Int(c)End Sub7. 设计一个“健康称”程序，界面如图所示。单击“健康状况”按钮后，根据计算公式将相
7、应提示信息通过标签显示在按钮下面。计算公式为：标准体重身高105。体重高于标准体重的 1.1倍为偏胖，提示“偏胖，加强锻炼，注意节食”；体重低于标准体重的90%为偏瘦，提示“偏瘦，增加营养”；其它为正常，提示“正常，继续保持”。Private Sub Command1_Click()sg = Val(Text1.Text)tz = Val(Text2.Text)bz = sg - 105Select Case tz / bzCase Is = 1.1Label3.Caption = 偏胖，加强锻炼，注意节食Case Is Label3.Caption = 偏瘦，增加营养Case ElseLab
8、el3.Caption = 正常，继续保持End SelectEnd SubPrivate Sub Form_Load()End Sub 8. 设计如图所示的程序根据需要编写相应事件代码。（1）在组合框中输入内容后，单击“添加”按钮，如果组合框中设有该内容，则将输入内容加入到列表中，否则将不添加。（2）在列表中选择某一项后，单击“删除”按钮，则删除该项。（3）单击“清除”按钮，将清除列表中所有的内容Private Sub Command1_Click()t = Combo1.Textflag = 0For i = 0 To Combo1.ListCount - 1If t = Combo1.L
9、ist(i) Then flag = 1Next iIf flag = 0 ThenCombo1.AddItem tEnd IfEnd SubPrivate Sub Command2_Click()If t = Combo1.ListIndex ThenCombo1.RemoveItem tEnd SubPrivate Sub Command3_Click()Combo1.ClearEnd SubPrivate Sub Form_Load()End Sub9.求1到200中的所有偶数的和。求1到200中的所有奇数的和。求1到150中的所有偶数的和。求1到150中的所有奇数的和。求1到150的所
10、有整数的和。求不超过150的所有所有能被3或5整除的整数的和。Print SumEnd SubPrivate Sub Command4_Click()Sum = 0For i = 1 To 150 Step 2Sum = Sum + iNext iPrint SumEnd SubPrivate Sub Command5_Click()Sum = 0For i = 1 To 150Sum = Sum + iNext iPrint SumEnd SubPrivate Sub Command6_Click()Sum = 0For i = 1 To 150If i Mod 3 = 0 Or i Mod
11、 5 = 0 Then Sum = Sum + iNext iPrint SumEnd SubPrivate Sub Form_Load()End Sub10.利用随机函数产生20个50-100之间的随机整数，显示它们的最大值、最小值和平均值。Private Sub Command1_Click()maxi = 50Mini = 100sumi = 0For i = 1 To 20t = Int(100 - 50 + 1) * Rnd + 50)If t maxi Thenmaxi = tElseIf t End Ifsumi = sumi + tNext iavei = sumi / 20Print max=; maxi, min; Mini, ave; avei End SubPrivate Sub Form_Load()End Sub11.编写一段代码，当单击窗体时，计算出1!+2!+3!+10!，并在窗体上输出结果。Private Sub Form_Click()Sum = 0 For i = 1 To 10 n = 1For j = 1 To i n = n * j Next jSum = Sum + n Next iPrint SumEnd Sub
