vb程序设计教程（潘蕾）考题分类总结2018春讲义教材.ppt

考题分类总结;Private Function judge(n As Long) As Boolean 判断整数n由不同的数字组成 Dim k As Integer, a() As Integer, i As Integer, j As Integer Do k = k + 1 ReDim Preserve a(k) a(k) = n Mod 10 n = n \ 10 Loop Until n = 0 For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) If a(i) = a(j) Then Exit Function Next j Next i judge = True End Function;;; ’生成无重复数数组 n = Val(Text1.Text) ReDim a(n) i = 1 Do While i = n a(i) = Int(Rnd * 90 + 10) For j = 1 To i - 1 If a(i) = a(j) Then Exit For Next j If j i - 1 Then i = i + 1 Loop For i = 1 To n Text2.Text = Text2.Text Str(a(i)) Next i;;找出给定范围内满足有关条件的所有的数 Private Sub Command1_Click() Dim N As Integer, M As Integer, k As Integer Dim i As Integer, j As Integer, s As String N=Text1: M=Text2 For i = N To M If 条件1 And 条件2 And 条件3 Then List1.additem i 或 Text3=Text3 i VbCrLf End IF 其中（1）条件可以为逻辑变量， 逻辑表 达式，布尔型函数调用 （2）输出的内容注意格式的 书写（字符串与变量的连接） Next i End Sub