vb输入一个三位数计算

PrivateSubCommand1_Click()s=Text1.TextIfMid(s,Len(s),1)<>""Thens=s+""Text2

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

publicsubcommand1_click()text3=(val(trim(text1))+val(trim(text2)))/2endsu

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

#includevoidmain(){inta;printf("请输入一个三位数：");scanf("%d",&a);printf("各位数上的乘积为：%d\n",(a/100)*(a%10)*(a/

#include <stdio.h>int main(void){    int num, i, 

不是已经有人问过了吗?这里：根据3512174的顺序自己敲一下代码就是了.

PrivateSubCommand1_Click()'没考虑两数相加等于10的情况Dims1AsString,s2AsStrings1=Trim(Text1.Text)s2=Trim(Text2.Te

dimary(14),jgaslong,dimSerAim(),sumaslongrandomizefori=1to13ary(i)=int(rnd*1000)nextFori=1To12Forj=i

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

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

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

PrivateSubCommand1_Click()Dimnum,iAsLongDima,b,cAsIntegerFornum=100To999a=numMod10b=(num\10)Mod10c=n

x除10

PrivateSubForm_Click()Dima(3),i,j,k,xAsIntegerx=Val(InputBox("x="))Ifx1000ThenExitSuba(1)=x\100'取百位上

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

对于输入：fori=1to3forj=1to3a(i,j)=inputbox("请输入a("&i&","&j&")=")nextnext关于求和：1231(3,1)2(2,2)3(1,3)负对角线上各

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*