用VB6.0设计简单程序

VB60测试通过

'利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。

'1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。

'2．将排好序的偶数和奇数分别输出到两个文本框中。

Dim RndArray(6, 10) As Integer

Dim OddArray() As Integer

Dim EvenArray() As Integer

Dim i, j As Integer

Dim m, n As Integer

Private Sub Cmd_Exit_Click()

'销毁数组

Unload Me

End Sub

Private Sub Cmd_Start_Click()

'除数化

MeTxt(0)Text = ""

MeTxt(1)Text = ""

MeTxt(2)Text = ""

ReDim OddArray(60)

ReDim EvenArray(60)

For i = 0 To 5 Step 1

For j = 0 To 9 Step 1

RndArray(i, j) = RndNuN(100, 200)

Next j

Next i

For i = 0 To 5 Step 1

For j = 0 To 8 Step 1

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + ","

Next j

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + vbCrLf

Next i

m = 0

n = 0

For i = 0 To 5 Step 1

For j = 0 To 9 Step 1

If RndArray(i, j) Mod 2 Then

OddArray(m) = RndArray(i, j)

m = m + 1

Else

EvenArray(n) = RndArray(i, j)

n = n + 1

End If

Next j

Next i

ReDim Preserve OddArray(m)

ReDim Preserve EvenArray(n)

DwComp OddArray(), m

UpComp EvenArray(), n

m = m - 1

n = n - 1

For i = 0 To m Step 1

MeTxt(1) = MeTxt(1) + Trim(Str(OddArray(i))) + ","

Next i

For i = 0 To n Step 1

MeTxt(2) = MeTxt(2) + Trim(Str(EvenArray(i))) + ","

Next i

End Sub

Public Function RndNuN(ByVal Min As Integer, ByVal Max As Integer)

RndNuN = Min + (Max - Min) Rnd

End Function

Public Function UpComp(ByRef parray() As Integer, ByVal num As Integer)

Dim temp As Integer

num = num - 2

For i = 0 To num Step 1

For j = 0 To num Step 1

If parray(j) > parray(j + 1) Then

temp = parray(j)

parray(j) = parray(j + 1)

parray(j + 1) = temp

End If

Next j

Next i

End Function

Public Function DwComp(ByRef parray() As Integer, ByVal num As Integer)

Dim temp As Integer

num = num - 2

For i = 0 To num Step 1

For j = 0 To num Step 1

If parray(j) < parray(j + 1) Then

temp = parray(j)

parray(j) = parray(j + 1)

parray(j + 1) = temp

End If

Next j

Next i

End Function

'利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。

'1 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。

'2 用Sub子过程或Function函数过程判断随机整数是否为素数。

'3 将素数按每行10个数在窗体或文本框中输出。

'4 将素数的个数以及求和结果出到窗体或文本框中。

Dim RndArray(10, 10) As Integer

Dim PrimArray() As Integer

Dim i, j As Integer

Dim m, n As Integer

Dim num As Integer

Dim sum As Integer

Private Sub Cmd_Click(Index As Integer)

If Index Then

Unload Me

Else

'初始化

MeTxt(0)Text = ""

MeTxt(1)Text = ""

MeTxt(2)Text = ""

MeTxt(3)Text = ""

For i = 0 To 9 Step 1

For j = 0 To 9 Step 1

RndArray(i, j) = RndNuN(10, 99)

Next j

Next i

For i = 0 To 9 Step 1

For j = 0 To 8 Step 1

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + ","

Next j

MeTxt(0)Text = MeTxt(0)Text + Trim(Str(RndArray(i, j))) + vbCrLf

Next i

m = 0

n = 0

num = 0

sum = 0

ReDim PrimArray(10, 10)

For i = 0 To 9 Step 1

For j = 0 To 9 Step 1

If IsPrime(RndArray(i, j)) Then

PrimArray(m, n) = RndArray(i, j)

MeTxt(1)Text = MeTxt(1)Text + Trim(Str(PrimArray(m, n))) + ","

sum = sum + PrimArray(m, n)

n = n + 1

If n > 9 Then

m = m + 1

n = 0

End If

num = num + 1

End If

Next j

Next i

MeTxt(2)Text = Trim(Str(num))

MeTxt(3)Text = Trim(Str(sum))

End If

End Sub

Public Function RndNuN(ByVal Min As Integer, ByVal Max As Integer)

RndNuN = Min + (Max - Min) Rnd

End Function

Public Function IsPrime(ByVal n As Integer) As Boolean

Dim a, b As Integer

IsPrime = False

If n Mod 2 Then

b = Sqr(n)

For a = 3 To b Step 2

If n Mod a = 0 Then

Exit Function

End If

Next a

IsPrime = True

End If

End Function

#include<stdioh>

#define max 100

int helix(int a,int b,int e,int f,int s[max][max])

{int i;

static int c=1;

for(i=1;i<=e;i++)

s[a++][b]=c++;

f--;

a--;

if(f!=0)

{

for(i=1;i<=f;i++)

s[a][++b]=c++;

e--;

if(e!=0)

{for(i=1;i<=e;i++)

s[--a][b]=c++;

f--;

if(f!=0)

for(i=1;i<=f;i++)

s[a][--b]=c++;

}

}

}

main()

{int m,n,x,y,i=1,j,c,t,s[max][max];

printf("please input the hang&lie number");

scanf("%d %d %d \n",&m,&n,&t);

x=m;

y=n;

while(1)

{ helix(i,i,x,y,s);

x=x-2;

y=y-2;

if(x<=0||y<=0)

break;

i++;

}

printf("\n");

if(t==0)

{for(i=1;i<=m;i++)

{for(j=1;j<=n;j++)

printf(" %d",s[i][j]);

printf("\n");

}

}

else

{for(i=1;i<=n;i++)

{for(j=1;j<=m;j++)

printf(" %d",s[j][i]);

printf("\n");

}

}

getch();

}

数字的逆序输出，自己尝试著编译看看

从你的问题来看，你还没有把软件与硬件关联起来，所有的指令在计算机内都被译码器变成了一系列不同时序的高低电平的关系，通过这些高低电平可以做很多事，最简单的可以用单片机一个引脚输出高电平或低电平驱动一台电动机，也可以通过某个I/O口输入是高还是低电平来判断有没有键按下之类的。计算机指令越丰富功能就越强，现在计算机的CPU功能当然越来越多，指令也越来越丰富，从586MMX开始就有与多媒体有关的指令了，而51单片机硬件设计是功能就限制住了，也就有111条指令。

//十进制转十六进制

publicstringDtoX(intd)

{

stringx="";

if(d<16)

{

x=chang(d);

}

else

{

intc;

ints=0;

intn=d;

inttemp=d;

while(n>=16)

{

s++;

n=n/16;

}

string[]m=newstring[s];

inti=0;

do

{

c=d/16;

m[i++]=chang(d%16);//判断是否大于10，如果大于10，则转换为A~F的格式

d=c;

}while(c>=16);

x=chang(d);

for(intj=mLength-1;j>=0;j--)

{

x+=m[j];

}

}

returnx;

}

//判断是否为10~15之间的数，如果是则进行转换

publicstringchang(intd)

{

stringx="";

switch(d)

{

case10:

x="A";

break;

case11:

x="B";

break;

case12:

x="C";

break;

case13:

x="D";

break;

case14:

x="E";

break;

case15:

x="F";

break;

default:

x=dToString();

break;

}

returnx;

}

以上就是关于用VB6.0设计简单程序全部的内容，包括:用VB6.0设计简单程序、给几个50行左右简单的C语言程序设计 谢谢~~、汇编语言的一个简单程序设计等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！