vb输出矩形九九乘法表的编程-搜答案-拍题作业网

这也是大学编程?中学还差不多 Private Sub Command1_Click()a = Int(Val(InputBox("a=&qu

第一个的,其他几个也类似Dimsum,nAsDoublesum=0n=1Fori=1To100n=i*nsum=sum+nNextText1.Text=sum

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

试一下这个：#includeusingnamespacestd;intmain(){cout再问：差不多了，就是少个“*”号

现在没时间明天可能有空到时帮你做下你联系我下免得我忘了不过你也没分.

privatesubform_click()dimnaslongdimxasstringdimyasstringfori=1000to9999x=mid(i,1,2)y=mid(i,4,1)&mid(

C语言如下#includeintmain(void){inti,j;printf("123456789\n-------------------------\n");for(i=1;i

n=(nmod10)*10+(n\10)

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

#includevoidmain(){\x09inti,j,k;\x09for(i=1;i

#includevoidmain(){inti,j;printf("*\t1\t2\t3\t4\t5\t6\t7\t8\t9\n");printf("----------------------

全部printf?当然了,用循环也可以做的,哈哈~再问：用循环。。。再答：intmain(){inti=0,j=0;for(i=1;i

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

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

for(inti=1;i

Private Sub Command1_Click() Cls Dim r(

时间有限,只写了C++代码,未调试,思路相同,自己切换吧#include"math.h"BOOLIsPrime(inta){inti;for(i=2;i再问：非常感谢～

emqbasic代码.简单修改一下就可以用到VB或者其他语言fori=1to9forii=1to9printi;"x";ii;"=";i*ii;“";nextprintnextend