Q1.打印一个杨辉三角，阶数可以任意指定。
“杨辉三角形”
杨辉三角形的每一行是（x+y）n的展开式的各项的系数。例如第一行是（x+y）0，其系数为1；第二行为（x+y）1，其系数为1，1；第三行为（x+y）2，其展开式为x2+2xy+y2，系数分别为1，2，1。。。一般形式如下：
1
1　1
1　2　1
1　3　3　1
1　4　6　4　1
1　5　10　10　5　1
。。。
分析上面的形式，可以找出其规律：对角线和每行的第一列均为1，其余各项是它的上一行中同一列元素和其顡一个元素之和。例如第四行第三列的值为3，它是第三行第二列与第三列元素值之和，可以一般地表示为：
a（i，j）=a（i－1，j－1）+a（i－1，j）
编写程序，输出n=10的杨辉三角形（11行）。

Q2.输入阶数，打印出如下矩阵，以四阶为例
1 2 3 4
8 7 6 5
9 10 11 12
16 15 14 13

Q3.手机键盘上
写着2的键盘上对应的ABC
写着3的键盘上对应的DEF
写着4的键盘上对应的GHI
写着5的键盘上对应的JKL
写着6的键盘上对应的MNO
写着7的键盘上对应的PQRS
写着8的键盘上对应的TUV
写着9的键盘上对应的WXYZ
比如 要输入AGD则需要按243
请写一个程序让我输入任何字母序列告诉我他们对应的数字键是多少。

Q4.写一个程序，我输入一个url字符串，把他的web地址提出来
比如我输入http:\\www.sina.com.cn\index.html
那么它的web地址应该是www.sina.com.cn.

Q5.写一个程序,把一个无序的有字母组成的字符串按照字母升序排列，形成新序列。
例如bac 形成的序列应该abc

Q6.从26个字母中去四个为一组,互不相同，请打印出来

Q7.一个人忘了自己的密码，只记得是4位都是数字,并且都不相同,其中一位是5。并且
首位和一位相加为15,请帮他列出所有可能的密码

Q8.一群酒徒聚在一起要比酒量。先上一瓶，各人平分。这酒真厉害，一瓶喝下来，当场就倒了几个。
于是再来一瓶，在余下的人中平分，结果又有人倒下。现在能坚持的人虽已很少，但总要决出个雌雄来。
于是又来一瓶，还是平分。如此下来一共喝了5轮终于有结果了这下总算有了结果，全倒了。
只听见最后倒下的酒徒中有人咕哝道：“嗨，我正好喝了一瓶。”你知道一共有多少个酒徒在一起比酒量吗?

回复一定数量后将公布答案

Q2

Option Explicit

Private Sub Form_Click()

Dim count As String, i As Integer, j As Integer, num As Integer, bReverse As Boolean

count = InputBox("请输入阶数:", "矩形阵列", "4")
If Trim(count) = "" Or (Not IsNumeric(count)) Then Exit Sub

num = 0
bReverse = False
Me.Cls
For i = 1 To count
If Not bReverse Then
For j = 1 To count
num = num + 1
Print num;
Next
bReverse = True
Else
num = num + CInt(count)
For j = 1 To count
Print num;
num = num - 1
Next
bReverse = False
num = num + CInt(count)
End If
Print
Next

End Sub

[此贴子已经被作者于2005-11-1 21:49:25编辑过]

无聊哦~

Q3

Option Explicit

Private Sub Form_Click()

Dim lt_serial As String, i As Integer, num As String

lt_serial = InputBox("请输入一串字母序列:", "手机按键测试", "AGD")
If Trim(lt_serial) = "" Then Exit Sub

For i = 1 To Len(lt_serial)

Select Case UCase(Mid(lt_serial, i, 1))
Case "A", "B", "C": num = num & "2"
Case "D", "E", "F": num = num & "3"
Case "G", "H", "I": num = num & "4"
Case "J", "K", "L": num = num & "5"
Case "M", "N", "O": num = num & "6"
Case "P", "Q", "R", "S": num = num & "7"
Case "T", "U", "V": num = num & "8"
Case "W", "X", "Y", "Z": num = num & "9"
End Select

If i <> Len(lt_serial) Then num = num & ","

Next

MsgBox "你的按键是: " & num, vbInformation

End Sub

PS: 这不是楼主原创的题目吧?

[此贴子已经被作者于2005-11-1 21:59:18编辑过]

有原创，也有比较有趣的嘛

呵呵～是哦

但是高手肯定不会害怕哦

加油