VB输入姓名 重复的删除后在输出

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注

输入10的倍数后按回车!PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKey

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

10=1010（二进制）7=0111（二进制）1010AND0111=0010=2（十进制）and在逻辑运算中是“与”的意思,在二进制计算中,只有and左右两边都是1,结果才是1,其它情况都是0

PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu

在VB中,Print语句具有计算功能,它能计算表达式的值,然后再输出它.所以,这里先计算2-2=0,然后就输出0.如果写Print2+3*10的话就会输出32.

PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

PrivateSubCommand1_Click()d=Val(Text1)Print100*(dMod100)+Int(d/100)EndSu

根据你的意思,我来写写,没在工具上写,没环境,你自己编译下,应该只有小错误.importjava.util.*;publicclassTest{int[]i=newint[30];//存放30个数的数

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

修订一下如果你的返回值固定是3个,你可以传进去3个空的变量,然后函数就把返回结果放到这3个变量里了,因为函数默认是按内存地址传递的,所以执行完函数,那3个变量就是结果了给你一个范例,你这样定义函数,复

THEN后面直接换行!（或加冒号:）你的程序太乱!题目中是X、Y、Z,程序中是a、b、c,一会儿又有m、n这样写：PrivateSubCommand1_Click()X=Text1.Text:Y=Te

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

#include"stdio.h"intmain(){intd[10],i,j,k,t[5];printf("输入十个整数：");k=0;//存储的序号（去重复）for(i=0;i

是输入字符串,还是一个int再问：int再答：#include<stdio.h>void main(){    int a,b=

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

PrivateSubCommand1_Click()Text2="该数是由"&Mid(Text1,1,1)&"个百"&Mid(Text1,2,1)&"个十"&Mid(Text1,3,1)&"个个"&"

#includevoidmain(){charname[20];charnumber[20];inta,b;floatm;scanf("%s%s%d%d",name,number,&a,&b);m=(