2、编写程序，判断一个正整数（>=3）是否为素数。（正整数由键盘输入）
编写程序，写出100-300之间所有的素数
3、编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面如图所示：要使用转换的公式是：F=9/5*C+32，其中F为华氏温度，C为摄氏温度。
Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Text2.Text = 9 / 5 * Val(Text1.Text) + 32
End If
End Sub
Private Sub Command2_Click()
If IsNumeric(Text2.Text) Then
Text1.Text = (Text2.Text - 32) / (9 / 5)
End If
End Sub
控件设计表
默认控件名(Name) 标题（Caption ）文本（Text）
Label1 摄氏温度无
Label2 华氏温度无
Text1 无为空
Text2 无为空
Command1 摄转华无
Command2 华转摄无
编写程序，判断一个正整数是奇数还是偶数。（正整数由键盘输入）
3、有如下数学灯谜：AB－BA＝A。其中A，B均为正整数。请用VB编程，求10至99之间所有符合此条件的数，并输出。
（如：若A、B均为0到9之内的正整数则 A= 9 B= 8 即： 98 – 89 = 9）
Private Sub GuessNumber()
Dim A As Integer, B As Integer
A = Val(InputBox("正整数：", "输入A的值：", 9))
B = InputBox("正整数：", "输入B的值：", 9)
For i = 1 T o A
For j = 1 T o B
If (i * 10 + j) - (j * 10 + i) = i Then
Print Spc(30); "A = "; i
Print Spc(30); "B = "; j
‘T ext1.T ext = T ext1.T ext & i & ","
‘T ext2.T ext = T ext2.T ext & j & ","
End If
Next j
Next i
End Sub
2、目前世界人口为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿？
4、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上（包括200元）者，按9.5折优惠；（2）在300元以上者（包括300元），按9折优惠；（3）400元以上者（包括400元），按8折优惠；（4）600元以上者按7折优惠（包括600元）。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如下图所示。
每只公鸡价值5个钱，每只母鸡价值3个钱，每3只小鸡价值1个钱。现有100个钱想买100只，问公鸡、母鸡和小鸡各应该买多少？
