Private Sub Command1_Click()
Dim s1 As String,s2 As String
Dim ch As String,ch2 As String
Dim max As Double
Dim n As Integer,page As Integer
Dim i As Integer,j As Integer
s1=Text1.Text:s2=””
n=Len(s1)
i=1:max=0
Do While i<=n
ch=Mid(s1,i,1)
If ch>=“0”And ch<=“9”Then
j=i
ch2=Mid(s1,i,1)
Do While ch2>=“0”And ch2<=“9”
j=j+1
ch2=Mid(s1,j, 1)
Loop
s2= ’(1)
If Then ’(2)
max=Val(s2)
page=i*10+j-1
Text2.Text=Str(page)
Text3.Text=Str(max Mod l00)
End If
i=j
End If
i=i+1
Loop
End Sub
Const rs = 2500 '考生总人数(即记录总数)
Dim kh(1 To rs) As String, cj(0 To rs) As Integer
Dim xx(1 To 9) As String '数组xx存放学校名称,如xx(1)="柯中",xx(2)="鲁高"……数组下标代表该学校代码,即"柯中"代码是1,"鲁高"代码是2……
'从数据库中读取考号和成绩数据,存入kh和cj数组,并在list1中显示,代码略。
Private Sub Command1_Click()
Dim school As String, n As Integer, i As Integer, j As Integer
Dim t1 As Integer, t2 As String, flag As Boolean
xx(1) = "柯中": xx(2) = "鲁高": xx(3) = "越崎": xx(4) = "鉴湖"
xx(5) = "钱清": xx(6) = "豫才": xx(7) = "轻纺城": xx(8) = "鲁中"
For i = 1 To 8
If xx(i) = Text1.Text Then ①
Next i
n = Val(Text2.Text) : i = 1: flag = True
Do While flag
k = i
For j = i + 1 To rs
t = Val(Mid(kh(j), 1, 1))
If t = school Then
If ② Then k = j
End If
Next j
If i > n And cj(k) <> cj(i - 1) Then flag = False
If k <> i Then
t1 = cj(i): cj(i) = cj(k): cj(k) = t1
t2 = kh(i): kh(i) = kh(k): kh(k) = t2
End If
i = i + 1
Loop
List2.Clear
For j = 1 To ③
List2.AddItem kh(j) + " " + Str(cj(j))
Next j
End Sub
① ② ③
进转为进制程序
Private Sub Command1 _Click( )
Dim s As String, st As Long, ch As Integer
Dim i As Integer, n As Integer
①
n=Len(s)
st=0
For i=1 To n
ch= ②
st=st+ch*2^(i- 1)
Next i
Text 2. Text = Str(st)
End Sub
① ②
Change |
0.01 |
0.02 |
勤奋值 |
||
懒惰值 |