vb编程输入10个整数存入一维数组,再按逆序重新存放后再输出?
#include<stdio.h>
#include<math.h>
int main()
{
int a[10],i;
for(i=0;i<10;i++)
{
scanf("%d",&a<i>);
}
for(i=9;i>0;i--)
{
printf("%d",a<i>);
}
printf("%d",a[0]);
return 0;
}
扩展资料:include用法:
#include命令预处理命令的一种,预处理命令可以将别的源代码内容插入到所指定的位置;可以标识出只有在特定条件下才会被编译的某一段程序代码;可以定义类似标识符功能的宏,在编译时,预处理器会用别的文本取代该宏。
插入头文件的内容
#include命令告诉预处理器将指定头文件的内容插入到预处理器命令的相应位置。有两种方式可以指定插入头文件:
1、#include<文件名>
2、#include"文件名"
#include
void main()
{int a[10],*p,i,j,t;
p=a;
for(i=0;i<10;i++)
scanf("%d",p++);
printf("
");
p=a; //在这对指针重新初始化一下,因为你前面已经改变了p的指向
for(i=0,j=9;i<j;i++,j--)
{t=*(p+i);*(p+i)=*(p+j);*(p+j)=t;} //指针应该这样来用,你那样用有问题
p=a;
for(i=0;i<10;i++)
printf("%d ",*p++);
}
Private Sub Command1_Click()
Dim a(10) As Integer
Print "初始的数:"
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数:")
Print a(i);
Next i
For i = 1 To 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
Next i
Print "逆序重新存放后的数:"
For i = 1 To 10
Print a(i);
Next i
Print: Print
End Sub
详细要求有没有?
vb编程输入10个整数存入一维数组,再按逆序重新存放后再输出?视频
相关评论:
仰眨狗Private Sub Command1_Click()Dim a(10) As Integer Print "初始的数:"For i = 1 To 10 a(i) = InputBox("请输入第" & i & "个数:")Print a(i);Next i Print For i = 1 To 5 t = a(i)a(i) = a(11 - i)a(11 - i) = t Next i Print "逆序重新存放后的数:...
仰眨狗输入用input()接收键盘数据接收满10个整数后,用一数组存起来.求平均数的函数是:AVG()求最大值是函数是:MAX()求最小值的函数是:MIN()就行了,不需要其它的.
仰眨狗1、定义一个用于存放10个整数的一维数组;2、输入第1个数,放到数组的第1个中;3、输入第2个数,与数组中的第1个数比较,如果大,就放入数组的第2个数中;如果小,就将第1个数赋给中间变量,将输入的数放入数组的第1个数中;将临时变量放入数组的第2个数中;4、按此方法输入后面的数,依次...
仰眨狗Private Sub Command1_Click() Randomize Dim a(9) As Integer, Max As Integer Dim k As Integer, i As Integer Dim t As Integer Max = 0 For i = 0 To 9 a(i) = Int(Rnd * 51) Print a(i);...
仰眨狗Private Sub Command1_Click()Dim a(10) As Integer Randomize Print "产生的随机数是:"For i = 1 To 10 a(i) = Int(Rnd * 51)Print a(i);Next i Print x = CInt(InputBox("请输入要查找的数:"))Print "要查找的数是:"; x n = 0 For i = 1 To 10 If x = a(i) ...
仰眨狗Private Sub Command1_Click()Dim a%(9)For i = 0 To 9 a(i) = InputBox("请输入第" & i & "个整数", "输入整数")Text1.Text = Text1.Text & a(i) & Space(3)Next For i = LBound(a) To UBound(a) \/ 2 b = a(i)a(i) = a(9 - i)a(9 - i) = b Next i...
仰眨狗题目好像不全。以下的程序是实现这样的功能:用随机函数产生10个50以内(包括50)的随机整数存入一维数组,从键盘上输入一个数,在数组中查找这样的数,最后返回查找结果:在数组的第几个元素中找到,或是未找到这样的数。Private Sub Command1_Click() Dim a(10) As Integer, x As Integer ...
仰眨狗Label1.Caption = ""For i = 1 To 10 x(i) = Val(InputBox("输入第“ & i & "个整数", "输入整数", "0"))If i = 1 Then max = x(1) : min = x(1)If x(i) > max Then max = x(i)If x(i) < min Then min = x(i)Label4.Caption = Label4.Caption & x(i)...
仰眨狗void main(){ int a[10];int i,j,min,max,k,temp;for(i=0;i<10;i++)scanf("%d",&a[i]);min=a[0];max=a[0];for(i=0;i<10;i++){ if(maxa[i]){ min=a[i];k=i;} } temp=a[j];a[j]=a[k];a[k]=temp;for(i=0;i<10;++i)printf("%3d",a[i]);} ...
仰眨狗1、打开VB6.0开发软件,新建一个标准exe工程;2、在设计界面上添加两个Label控件、两个个Text控件和一个Command控件,各控件属性如下图所示;3、双击Command1控件,进入代码编辑界面,输入如下代码:Private Sub Command1_Click()Dim a(10) As IntegerText1.Text = ""Text2.Text = ""For i = 1...