Dim I As Byte,J As Byte,K As String
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/18 04:08:19
Dim I As Byte,J As Byte,K As String
Open App.Path & "\WORLD " & Text1.Text & ".nes" For Binary As #1
For I = 1 To 175
Get #1,CLng("&HD66" + I),J
If J >= 10 And J < 190 Then
J = J + 55
K = K & Chr(J)
Else
K = K & Str(J)
End If
Next
Close #1
Text2.Text = K
Open App.Path & "\WORLD " & Text1.Text & ".nes" For Binary As #1
For I = 1 To 175
Get #1,CLng("&HD66" + I),J
If J >= 10 And J < 190 Then
J = J + 55
K = K & Chr(J)
Else
K = K & Str(J)
End If
Next
Close #1
Text2.Text = K
好像是把文本1的文字加密后存入文本2
dim strsql as string
英语翻译Dim a() As String,b() As String,x1() As String,y1() As S
Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R
vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer
byte
用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As
Private Sub Form_Click() Dim a As Integer,b As Integer,k As
dim str as string*10,str="123",len(str)返回值为10,为什么?string*10是
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
VB dim x as integer dim i as integer x = 100 for i = 1 to 10