《程序设计34892.doc》由会员分享，可在线阅读，更多相关《程序设计34892.doc（4页珍藏版）》请在金锄头文库上搜索。
1、编写程序，判断一个正整数（=3）是否为素数。（正整数由键盘输入）Private Sub Form_Click()Dim n As Integern = InputBox(请输入一个正整数（=3）)k = Int(Sqr(n)I = 2While I = k And swit = 0If n Mod I = 0 Thenswit = 1ElseI = I + 1End IfWendIf swit = 0 ThenPrint n; 是一个素数ElsePrint n; 不是一个素数End IfEnd Sub编写程序，写出100-300之间所有的素数Private Sub Form_Click()Fo
2、r n = 101 To 300 Step 2k = Int(Sqr(n)i = 2swit = 0While i = 7000000000# p = p * (1 + r) n = n + 1LoopPrint n; 年后“；”世界人口达“；pEnd Sub购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上（包括200元）者，按9.5折优惠；（2）在300元以上者（包括300元），按9折优惠；（3）400元以上者（包括400元），按8折优惠；（4）600元以上者按7折优惠（包括600元）。在窗体上添加两个文本框和一个命令按钮，要求在Text
3、1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如下图所示。Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x = 200 Then y = 0.95 * x Else If x = 300 Then y = 0.9 * x Else If x = 400 Then y = 0.8 * x Else y = 0.7 * x End If End IfEnd If Text2.Text = yEnd Sub每只公鸡价值5个钱，每只母鸡价值3个钱，每3只小鸡价值1个钱。现有100个钱想买100只，问公鸡、母鸡和小鸡各应该买多少？Private Sub Form_click()Me.Print 公鸡, 母鸡, 小鸡Dim i, j, k 公鸡 i，母鸡j ，小鸡k 。For i = 0 To 20 For j = 0 To 33 For k = 0 To 100 If 5 * i + 3 * j + k / 3 = 100 And i + j + k = 100 Then Me.Print i, j, k End If Next k Next jNext iEnd Sub
