VB输入一串字符,求其奇数位数只和,输入456123,求4 6 2

在窗口上放两个控件,一个text1,一个command1,并注意窗口不要太小、控件不要太靠窗口的顶部.程序如下：PrivateSubcommand1_click()DimLAsInteger,SAsS

/>            string ss = 

我给你写了,挺简单的.窗体上添加两个label控件一个command控件Dima(1To10)DimbDimcAsIntegerDimdAsIntegerPrivateSubCommand1_Clic

你的i, j赋上初值为0你求平均不用在循环体里算的, 只需统计i, j的值就行了, 跳出循环的时候算一次就OK了.另外,你求平均,av1,av2就要用float

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

有问题,加入这个群151988677找千里#include#definemax100voidjiancha(intcount[],charstring[]){inti=0;while(string[i

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

用一个一维数组a就可以解决了奇数:aimod2=1,则加1偶数:10-i再问：完全小白求帮助再答：新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:PrivateSubCommand1

#includevoidfun(char*p,int&k1,int&k2,int&k3,int&k4,int&k5){inti;for(i=0;*(p+i)!='\0';i++){if(*(p+i)>

任意单元格输入公式=SMALL(IF(--RIGHT(LEFT(ROW($100:$999))+MID(ROW($100:$999),2,1)+RIGHT(ROW($100:$999)))=1,ROW

1、clears=0m=1fori=1to10input"请输入一个数："toaifa/2=int(a/2)s=s+aelsem=m*aendifendfor?"奇数的积是：",m?"偶数的和是：",

定义三个listboxOptionExplicitPrivateSubForm_Click()DimiAsLong,jAsLongList1.AddItem("奇数")List2.AddItem("偶

新建一个程序文件,内容如下：clearinput"输入一个整数:"tondocasecasen%2=0n^3casen%2!=0n^2endcase保存并运行!

PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcAsStringc=Chr(KeyAscii)Ifc>="A"Andc="a"Andc="0"Andc

0本来就是偶数>_

　　如图望采纳!

程序很简单,仔细看吧：vara:array['0'..'9']oflongint;b:array['0'..'9']ofchar;c,i,j,tt:char;t:longint;begin//初始化f

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

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

#include <stdio.h>　　char* upper2lower(char *s)　　{　　char *p=s;　　while(*p)