请各位大侠帮忙解决些VB题。。。

1、 在窗体的中央输出指定颜色、大小、样式的文字。

2、分别用If语句和Select Case语句实现学生成绩转换：
100分~90分 A等
89分~80分 B等
79分~70分 C等
69分~60分 E等
<60分 D等
用InputBox函数输入成绩，用Print方法或MsgBox函数输出转换结果。

3、设计一个应用程序，输出100到300之间的所有素数。

4、已知四位数a2b3能被23整除，编程求此四位数。

5、一百万富翁遇到一陌生人，陌生人找他谈一个换钱的计划，该计划如下：
我（陌生人）每天给你（百万富翁）十万元，而你第一天只需给我一分钱，第二天我仍给你十万元，你给我二分钱，第三天我仍给你十万元，你给我四分钱，……，你每天给我的钱是前一天的两倍，直到满一个月（30天）。百万富翁欣然接受了这个契约。请编写一个程序计算这一个月中陌生人给了百万富翁多少钱，百万富翁给陌生人多少钱。

6、一个两位的正整数，如果将它的个位与十位数对调，则产生另一个正整数，就把后者叫做前者的对调数。现给定一个两位的正整数，请找到另一个两位的正整数，使得这两个两位正整数之和等于他们各自的对调数之和。例如：12+32=23+21。编写程序，把具有这种特征的一对对两位正整数都找出来。

1、题目不是很清楚，能否重述
2、1）if法
Private Sub Form_click()
Dim fs As Single
Dim cj As String
fs = InputBox("请输入分数", "分数转化")
If fs < 100 Then
If fs >= 90 Then
cj = "A等"
ElseIf fs >= 80 Then
cj = "B等"
ElseIf fs >= 70 Then
cj = "C等"
ElseIf fs >= 60 Then
cj = "E等"
Else
cj = "D等"
End If
End If
Print cj
End Sub
2）select case 法：
Private Sub Form_click()
Dim fs As Single
Dim cj As String
fs = InputBox("请输入分数", "分数转化")
Select Case fs
Case 90 To 100
cj = "A等"
Case 80 To 89
cj = "B等"
Case 70 To 79
cj = "C等"
Case 60 To 69
cj = "E等"
Case 0 To 59
cj = "D等"
End Select
Print cj
End Sub
3、Private Sub Form_click()