您的位置: 首页 > 作业答案 > 其他 > Dim I As Byte,J As Byte,K As String

Dim I As Byte,J As Byte,K As String

分类: 作业答案 • 2022-01-28 09:08:06

问题描述：

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 J = J + 55
K = K & Chr(J)
Else
K = K & Str(J)
End If
Next
Close #1
Text2.Text = K

答

好像是把文本1的文字加密后存入文本2

将3*3的矩阵转置我编了个程序Private Sub Form_click()Dim a(1 To 3,1 To 3),i As Byte,j As Byte,t As ByteFor i = 1 To 3For j = 1 To 3a(i,j) = Val(InputBox("a（" & i & "," & j & "）=?"))Next jNext iFor i = 2 To 3For j = 1 To i - 1t = a(i,j):a(i,j) = a(j,i):a(j,i) = tNext jNext iFor i = 1 To 3For j = 1 To 3Print a(j,i);Next jPrintNext iEnd Sub为什么输出的还是原来的矩阵,没有转置呢?
java题目,要求随机生成100个0-9只见得整数,并统计和输出每个数字的个数.小弟写了一个程序,但是不知道哪里错了,总得不到最后的结果,各位请指出我的错误吧,再写另外一个就不必了,答得好的话会追分!public class Main {/*** @param args the command line arguments*/public static void main(String[] args) {int random[] = new int [100];int a[] = new int [10];int i,j,k;int z=0;for(i=0;i
关于for ……next语句内外循环的问题因为我不是很理解FOR NEXT循环语句的循环规则,所以麻烦大神详细解释一下每一步是怎么循环的好么?①private sub command1_click（）for i =1 to 4x=3for j = 1 to 3for k = 1 to 2x = x+3next knext jnext itxt1.value = str(x)end sub②private sub command1_click()dim i,j,xfor i = 1 to 20 step 2x= 0for j = i to 20 step 3x= x + 1next jnext itext1.value = str(x)end sub
C语言编程求一个英文句子中的单词数和最长单词的位置、长度及输出这个单词.从键盘输入一个英文句子,统计其中单词的个数,并输出最长单词在文本中的位置（是文本中的第几个字符）和长度；（单词的界定：单词是由空格、换行符号、标点符号等分隔的字母和数字组成的连续字符串）#include#includevoid main(){char string[100];char b;int i,j,k,m=0,n=0;printf("请输入一个英文句子:\n");gets(string);for(i=0;(b=string[i])!='\0';i++)if(b==' ')m=0;else if(m==0){m=1;n++;}printf("该句共有%d个单词\n",n);printf("最长的单词是第%d个,它的长度是%d\n",k);}我只会编到这一步,其他的不会了,
为什么这个程序中的计算结果不对呢,就是第一次正确,之后就会出现运算错误,Dim a As Boolean,num(1) As String,cou As Byte,operatorPrivate Sub Command1_click(Index As Integer)If a ThenLabel3.Caption = ""Label4.Caption = ""a = FalseEnd IfIf Index 10 ThenLabel3.Caption = Label3.Caption & Indexnum(cou) = num(cou) & IndexElseLabel3.Caption = Label3.Caption & "."num(cou) = num(cou) & "."Command1(10).Enabled = FalseEnd IfEnd SubPrivate Sub Command2_click(Index As Integer)If num(0) = "" Then Exit
Dim I As Byte,J As Byte,K As String
已知sinθ和cosθ是方程x²-√mx（x不在根号内）+1/m=0的两个根,求实数θ和m的值.
比较生物膜法和活性污泥法的优缺点?

Dim I As Byte,J As Byte,K As String

相关推荐