vb考试超高命中编程考题.docVIP

1、3、5、7、9 Private Sub Form_Click() For i = 1 To 5 Print Tab(15 - 2 * i); For j = 1 To 2 * i - 1 Print Format(2 * i - 1, @@); Next j Print Next i End Sub 2、勾股数. Private Sub Form_Click() s = 0 For a = 1 To 100 For b = a + 1 To 100 For c = b + 1 To 100 If a ^ 2 + b ^ 2 = c ^ 2 Then Print a, b, c s = s + 1 End If Next c Next b Next a Print s End Sub 3、16进制转化为10进制. Private Sub Form_Activate() a = InputBox(请输入一个16进制数) k = Trim(Str(a)) h = Len(k) s = a Mod 10 For i = h - 1 To 1 Step -1 s = s + Val(Mid(k, i, 1)) * 16 ^ (h - i) Next i Print a, s End Sub 4、12345. Private Sub Form_Activa