vb的女人是一道题题 求大神帮忙

来源：蜘蛛抓取(WebSpider) 时间：2017-01-01 19:48 标签： 各位大神帮忙出出主意
求大神帮忙解答一道VB题目_李毅吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：25,963,268贴子：
求大神帮忙解答一道VB题目
求帮忙写个程序，详细代码，谢谢哈：选课程序1A9.VBP，要求程序运行时，输入学生姓名、选择学历和选修课程，在按下“确定”按钮后，信息对话框中显示学生的姓名、学历及所选的课程
贴吧热议榜
使用签名档&&
保存至快速回贴帮忙做一道题，大概图已经画出，求vb大神帮忙_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：96,798贴子：
帮忙做一道题，大概图已经画出，求vb大神帮忙收藏
要求：小球在这3条线上来回滚动，滚到哪条线哪条线变成红色
上海张学友、王菲演唱会一站式购票!票品安全且真票!立即订购!
代做要的加我
顶，求大神
顶，求大神
判断球的left属性在哪个区间内你还要知道它是几年几月几日开始算的。。---1.提问请到置顶帖2.欢迎加入Longdows 奇境团，群号码：，加入奇境团，问问题更简单！详情
很简单，判断圆和直线的位置
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求vb大神帮忙做一道题.要求；只需要要程序写出来,界面的截图；超长正整数的加法,请设计一个算法完成两个超长正整数的加法.
基本思路,是把数字作为字符串处理,然后运算的时候,先把它截取成长度一定的（比如4位）若干段,分段转换成数字求和（要考虑进位）,然后转换成字符,在连接起来输出：界面如下：代码如下：Option ExplicitPrivate Sub Command1_Click()Dim ssss As Stringssss = PPP(Text1.Text,Text2.Text)Text3.Text = ssssEnd Sub'自定义函数求两个长整数之和Private Function PPP(ByVal s1 As String,ByVal s2 As String) As StringDim dd1() As StringDim n1 As IntegerDim dd2() As StringDim n2 As IntegerDim s As StringDim i As IntegerDim d1 As IntegerDim d2 As IntegerDim t As IntegerDim j As IntegerDim JinWei As BooleanDim K As IntegerDim SS1 As StringDim SS2 As StringIf Len(s1) & Len(s2) Then& &SS1 = s1& &SS2 = s2Else& &SS1 = s2& &SS2 = s1End Ifn1 = 0s = SS1Do While Len(s) & 4& &n1 = n1 + 1& &ReDim Preserve dd1(1 To n1) As String& &dd1(n1) = Right(s,4)& &s = Left(s,Len(s) - 4)Loopn1 = n1 + 1ReDim Preserve dd1(1 To n1) As Stringdd1(n1) = sn2 = 0s = SS2Do While Len(s) & 4& &n2 = n2 + 1& &ReDim Preserve dd2(1 To n2) As String& &dd2(n2) = Right(s,4)& &s = Left(s,Len(s) - 4)Loopn2 = n2 + 1ReDim Preserve dd2(1 To n2) As Stringdd2(n2) = sJinWei = FalseK = 0For i = 1 To n1& &K = K + 1& &If K & n2 Then Exit For& &If Not JinWei Then& & & t = Val(dd1(i)) + Val(dd2(K))& &Else& & & t = Val(dd1(i)) + Val(dd2(K)) + 1& &End If& &If Len(CStr(t)) & 4 Then& & & JinWei = True& &Else& & & JinWei = False& &End If& &dd1(i) = Right(CStr(t),4)Next iIf JinWei Then& &For i = n2 + 1 To n1& & & If JinWei Then& & & & &t = Val(dd1(i)) + 1& & & Else& & & & &t = Val(dd1(i))& & & End If& & & If Len(CStr(t)) & 4 Then& & & & &JinWei = True& & & Else& & & & &JinWei = False& & & End If& & & dd1(i) = Right(CStr(t),4)& &Next iEnd IfPPP = ""For i = n1 To 1 Step -1& &PPP = PPP & dd1(i)Next iIf JinWei Then PPP = "1" & PPPEnd Function
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 各位大神帮忙出出主意 的文章

 

随机推荐