vb数字分离

冒泡法再问：我是新手，能发哈代码不？再答：你说的东西和语言无关，是算法思想你百度下冒泡法在领悟下里面的意思，把它写成vb的形式代码不写的，我知道你肯定是要交作业，这样学习可不行的

functionhaha(strasstring)asstringfori=1tolen(str)ifnotisnumeric(mid(str,i,1))thena=a&mid(str,i,1)end

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

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

PrivateSubTimer1_Timer()label1.caption="今天是"&Format(Now(),"yyyy年m月d日")&WeekdayName(Weekday(Now(),vbS

'将Text2.MultiLine=TruePrivateSubCommand2_Click()DimsAsString,s2AsString,s3AsStringDimiAsInteger,kAsI

3344840

如果是输出时的话,可以假设字串是strMe.PrintFormat(str,"#.0")如果是想直接处理数据,先乘以10取整再除以10就可以了i=Int(i*10)/10.0

PrivateSubCommand1_Click()DimtmpStrAsString,tmpStr1AsStringDimmpStr2AsString,tmpStr3AsStringDimaAsIn

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

x="0123456"ifleft(x,1)="0"thenmsgbox"is0"

你是指ASCII码吧?这里有：再问：好像不是啊我记得“a”“b”“c”…………都是100以内连续的大写完是小写"A""B""C"..."Z""a""b""c""d"…………"z"其实这个问题应该很低级

x = 4321d = x \ 1000 '千位c = x \ 100 

添加一个“命令按钮控件”,将以下代码复制,运行即可OptionExplicitPrivateSubCommand1_Click()Dimnum1AsInteger,num2AsIntegerDimsu

dimiNumasinteger'定义为整数的两位数iNum=(iNum-int(iNum/10)*10)*10+int(iNum/10)'完成交换,并把交换后的值重新定义给iNum

Dim n%, st$ 'st为控制所显示字符或数字变量n = InputBox("请输入数字菱形行数,必须为奇数",&n

日期型变量或常量可以用一个双精度浮点数表示,其中整数部分表示从1899-12-30到该时间的天数（1899-12-30以前的日期则用负数表示）,小数部分则是从午夜起到该时间所经过的秒数占全天时间的比例

OptionExplicitPrivateStoredValueAsDoublePrivateConstopNone=0PrivateConstopAdd=1PrivateConstopSubtrac

PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To13Forj=1ToiPrint"";NextjForj=iTo13-i+1PrintChr(56-i

Dima(14)AsIntegerDimb(10)AsIntegerPrivateSubCommand1_Click()Fori=1To14a(i)=Int(100*Rnd())‘这里产生100以内的