南京工业大学vb期末范围操作题20道(上)非过程.pdfVIP

原创文档编辑 FvckG 支持正版 说明 本文档由南京工业大学机械1202 班 某人在考试前不惜牺牲自己的复习时间 为广大工大学子倾力制作 请大家支持正版 1.确认 文档信息中的贡献人为FvckG 后 再进行下载 2.所有试题已经运行，无误。 请确认后放心下载。 1．百元买百鸡 问题 Option Explicit Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer List1.AddItem 公鸡 母鸡 小鸡 For x = 1 To 20 For y = 1 To 33 z = 100 - x - y If 5 * x + 3 * y + z / 3 = 100 Then List1.AddItem CStr(x) Space(6) CStr(y) Space(6) CStr(z) End If Next y Next x End Sub Private Sub Command2_Click() End End Sub 2 ．单个字符统计个数 1 / 8 原创文档编辑 FvckG 支持正版 Private Sub Command1_Click() Form1.Cls Dim i As Integer, sl As String, k As Integer Dim str As String, num(25) As Integer str = UCase(Text1.Text) For i = 1 To Len(str) sl = Mid(str, i, 1) If sl = A And sl = Z Then k = Asc(sl) - Asc(A) num(k) = num(k) + 1 End If Next i For i = 0 To 25 If num(i) 0 Then Print Chr(65 + i); num(i) Next i End Sub 3 ．各位数之和 Private Sub Command1_Click() Dim x As Long, t As Long, n As Integer, s As Integer, a() As Integer x = Val(Text1) Do While x 0 t = x Mod 10 x = x \ 10 n = n + 1 ReDim Preserve a(n) a(n) = t 2 / 8 原创文档编辑 FvckG 支持正版 s = s + a(n) Loop Text2 = s End Sub 4 ．公约数 公倍数 Private Sub Command1_Click() Dim m As Long, n As Long, r As Long, t As Long, mm As Long, nn As Long mm = Val(Text1) nn = Val(Text2) m = mm: n = nn If n m Then t = n n = m m = t End If Do r = m Mod n m = n n = r Loop Until r = 0 Text3 = m Text4 = mm * nn / m End Sub Private Sub Command2_Click() Text1 = Text2 = Text3 = Text4 = Text1.SetFocus End Sub Private Sub Command3_Click() 3 / 8 原创文档编辑