vb 输入n个任意大小的数据 求这些数的最大值 最小值

a=val(inputbox("请输入一个数"))b=1fori=1toab=b*inextiforj=1tolen(str(b))ifmid(str(b),j,1)="0"thenc=c+1endi

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

#includeusingnamespacestd;intmain(){inti,n,a,max,k;coutmax){max=a;k=i;}}cout

运行结果是对的!问题估计错在输入语句的格式上,scanf("%d%d",&a,&b); 两个变量之间没有逗号,那么：从键盘上输入a=1,b=100应该是：

数组越界了,C语言中定义longa[10],其元素依次为a[0],a[1],a[2]...a[9]所以循环的时候,一般这样for (i = 0; i 

PrivateSubCommand1_Click()Doa=Val(InputBox("输入整数,-1结束:"))IfaMod2=0Thens=s+1LoopUntila=-1Print"共有";s;

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

一楼的很复杂,给你来个简单的：PrivateSubCommandButton1_Click()Dimi,s,kDimnaaa:n=InputBox("请输入大于等于1的数字")IfVal(n)>=1T

PrivateSubCommand1_Click()Fori=1ToVal(Text1)Sum=Sum+1/Val(InputBox("请输入阻值"))NextMsgBox"并联后的阻值"&1/Val

typeintar=array[1..20,1..20] of shortint;boolar=array[1..20,1..20] of boolean;va

//这样就可以了#include<stdio.h>#define N 10int main(){    int&nbs

PrivateSubCommand1_Click()Dima()AsIntegern=Val(InputBox("N="))ReDima(n)Print"Before:&

#include#include#defineMAX1000intmain(){inta[MAX],i,j,n,p,q,s1,s2;p=0;q=0;s1=0;s2=0;printf("请输入要输入的值

我不会啊啊