请根据文字描述帮我写三条VBA流程控制语句（关于Access中的VBA流程控制语句
Sub test() Dim i%, str$ For i = 1 To 100 If str = "" Then str = CStr(i) Else str = str & " " & CStr(i) End If Next Debug.Print strEnd Sub
Dim sum, x As Integer sum = 13 x = 1 Do sum = sum + sum * 0.008 * x x = x + 1 Loop Until sum >= 13 * 2 MsgBox (x & "," & sum)
第一题：
Public Sub jiujiubiao()
Dim i As Integer
Dim j As Integer
Dim zfc As String
zfc = ""
For i = 1 To 9
For j = 1 To i
zfc = zfc & i & "*" & j & "=" & i * j & vbCrLf
Next
Next
Debug.Print zfc
End Sub
效果如下：
再回答第二题：
Public Sub jiujiubiao()
Dim i As Integer
Dim j As Integer
Dim zfc As String
zfc = ""
For i = 1 To 9
For j = 1 To 9
zfc = zfc & i & "*" & j & "=" & i * j & ";"
Next
zfc = zfc & vbCrLf
Next
'MsgBox zfc
Debug.Print zfc
End Sub
在回答第三题：
Public Sub jiujiubiao()
Dim i As Integer
Dim j As Integer
Dim zfc As String
zfc = ""
For i = 1 To 9
For j = 1 To i
zfc = zfc & i & "*" & j & "=" & i * j & ";"
Next
zfc = zfc & vbCrLf
Next
'MsgBox zfc
Debug.Print zfc
End Sub
效果如下：
...写一种你最喜欢的花,用一段优美形象的文字,把它的样子描述下来...
你好，我是精锐教师 高老师 昙花是那样的美丽，朵朵都有茶杯那么大，淡青色的花瓣像羊脂玉石雕成的一样。形状就像喇叭花，可花瓣却像仙人球花。猛一看，花是白颜色的，像白玉；仔细再看，却是白里透黄，好看极了，我用鼻子一闻，一股诱人的香味，简直把我陶醉了。那沾满花粉的花蕊，在花瓣的簇拥下...
谁有绣花鞋的文字描述啊?
用户 认证用户 视频作者 日报作者 知道团队 认证团队 合伙人 企业 媒体 政府 其他组织 商城 手机答题 我的 谁有绣花鞋的文字描述啊? 20 不要在网上粘贴啊,最好是文笔好的亲字帮我写写啊。... 不要在网上粘贴啊,最好是文笔好的 亲字帮我写写啊。 展开 我来答 1...
帮妈妈洗碗文字描述
我边擦边想到底怎样才能不费力气，为什么妈妈平时那么迅速呢？突然间想出一个办法，就是把剩下所有的碗全部抹上洗洁精，然后在一起冲干净，这样节省了很多时间，真是快极了！这是一个不同寻常的周六，也是一个很美好的时刻，更是有意义的一天。因为今天我要帮妈妈做家务——刷碗。
帮我写一篇说明文的评论``谢谢大家了
写个200字左右的评论```谢谢 展开 我来答 14个回答 #热议# 鹤岗爆火背后的原因是什么? yujiang1996810 推荐于2016-12-01 · TA获得超过684个赞 知道答主 回答量:44 采纳率:0% 帮助的人:0 我也去答题访问个人页 关注 展开全部 保护地球,从我做起 古往今来,地球妈妈用甘甜的乳汁哺育...
写人的正面描写作文200字
瞧,这就是我的朋友 。 2. 用正面和侧面描写写一个片段(写人)200多字 父亲是个地地道道的北方人...我们并不想在这里向看官描述那个四面体的鼻子,那张马蹄形的嘴巴,那只被茅草似的棕色眉毛所堵塞的细小左眼
题目【心中的风景】帮我写一下作文500字
题目【心中的风景】帮我写一下作文500字 快。。。必须马上打完... 快。。。必须马上打完 展开 我来答 8个回答 #热议# 该不该让孩子很早学习人情世故?匿名用户 2009-11-01 展开全部 我心中的风景《心中的风景》 我心中的一道风景,是大自然的一个美丽的孩子。感应人们内心的世界,那是一个乡村的风...
请帮我写一篇秋季的运动会宣传稿件.是初一(1)班的.写得优美一点的.字数...
我的 请帮我写一篇秋季的运动会宣传稿件.是初一(1)班的.写得优美一点的.字数100-150字 4个回答...千万个美丽的词汇也无法描述 昔日的努力要在今天得到考验 来吧! 让今天的成功谱写新的未来 您是运动
怎么写说明文啊 快来帮帮我
虹”来比喻石拱桥，很形象生动，使读者清楚地了解了石拱桥的外形特征。再如《大自然的语言》中，作者用比喻、拟人的手法说明“花香鸟语，草长莺飞”都是大自然的语言，劳动人民根据这些现象掌握季节规律，安排农事。这段文字由于运用了比喻、拟人等修辞手法，不仅通俗易懂，而且生动有趣，饶有兴味。
介绍语文写作文500字
现语文是我人生中最重要的一部分,它伴随了我11年,而且他还将继续伴随我走完一生,在我一生中它是我的老师,也是我的知己,它会帮助我解决难题,也会让我使用它博大精深的文字写下我的喜怒哀乐……语文,我的良师益友,我爱你! 3. 五年级作文500字新学期的第一节语文课 这是一个特殊而美好的日子,迎着清爽的晨...
可以帮我写一篇文章吗
主题思路突出，每个论点互相牵扯，相互支撑7、文字表达：最后，注意文字表达。文字的优美程度不仅是一篇好作文的必备品质，同时还可以增加读者阅读的兴趣和体验。注意用词准确、简练，句子结构平衡，语言生动形象，并且顺畅有节奏。如果是叙述文要把事情写完整，把事情写详细，可以略写或详细结合。如果是说明...
邗婵灯银： 1. chr(int(rnd*26+65))2. iif(weight3. iif(a+b>c and a+c>b and b+c>a,true,false)
喀喇沁左翼蒙古族自治县19582297378： 请帮帮忙,写个VBA的程序,谢谢 - ？
邗婵灯银： 看到晕,没有表直接对照,晕了. 你的表述真晕,几句话搞定的东西,说这么多,晕了头了.你只要说:sheet1表中的数据按D列顺序相加小于等于50且不大于30行分按sheet2格式建立若干工作表,每增加一个表按B3递增,批+1,把相就数据...
喀喇沁左翼蒙古族自治县19582297378： 请高手帮忙写个excel vba程序~？
邗婵灯银： VBA可以实现,我也可以给你编一个.但是,我的原则是,如果Excel自带的公式和功能可以实现,绝不用VBA——它也有很大的局限性,甚至是危害性. 下面给出的方法,只是用VLOOKUP函数和条件格式就可以完成: 假设两个表格在一个工...
喀喇沁左翼蒙古族自治县19582297378： 谁能帮我写个VBA程序吗?？
邗婵灯银： Private Sub TextBox2_Change() TextBox17.Value = 0 TextBox5.Text = Date m = Month(TextBox5.Text) d = Day(TextBox5.Text) If Len(m) = 1 Then m = ＂0＂ & m If Len(d) = 1 Then d = ＂0＂ & d t5 = Right(Year(TextBox5.Text), 2) & m & d With ...
喀喇沁左翼蒙古族自治县19582297378： 帮我用 VBA在EXCEL做个程序?代码怎么写?？
邗婵灯银： 按你给的图做: 在D3单元格输入: =sumproduct(($h$3:$h$11=a3)*($i$3:$i$11=b3)*$j$3:$j$11) ,然后往下填充复制 在D3单元格输入: =if(c3=d3,＂对＂,＂错＂) ,然后往下填充复制 如果你的的数据不在A工作表而是在B工作表,则需把粗体所表示的区域改为相应的数据区域
喀喇沁左翼蒙古族自治县19582297378： 哪位高人可以帮我写一段VBA代码?(表1B2列 -- 表1B...列是数据列,表2B2列--表2B...是计算列, - ？
邗婵灯银： 首先说明VBA代码不能写在单元格里 你的意思是不是将表1的B列数据复制到表2的B列,这个简单:Sheet1.Columns(＂B＂).Copy (Sheet2.Columns(＂b＂))
喀喇沁左翼蒙古族自治县19582297378： VBA流程控制语句有哪些? - ？
邗婵灯银： 以上回答都很全面了 我做点小补充 VBA程序流程控制:顺序控制,选择控制,循环控制. VBA就是VB for Application的意思,说到底,在程序语言上看,VBA是VB的一个子集,主要用了VB的过程控制语句部分,但VBA是与微软的应用软件,如Office集成在一起的,它可以操作Office的对象,如Word中的文档、段落、字符,Excel的单元、工作表、工作薄等.所以VBA又结合了应用对象模型. 学好VBA主要要有两个基础: 1、懂一点VB的流程控制语句,有一些编程的经验 2、比较完整地了解微软的应用对象模型
喀喇沁左翼蒙古族自治县19582297378： (急)VBA程序的建立,编辑和运行方法? - ？
邗婵灯银： VBA概述:VBA是Visual Basic For Application的缩写,是VB在office中的运用.是基于Visual Basic For Windows发展而来的,VB For Windows是Microsoft于1992年推出的开发Windows应用程序的程序设计语言,由于基语法简单,易学易用,...
喀喇沁左翼蒙古族自治县19582297378： 怎样写VBA代码 - ？
邗婵灯银： Sub b2value() leftloc = Application.WorksheetFunction.Find(＂-＂, Range(＂a1＂)) textlen = Len(Range(＂a1＂)) Range(＂b1＂) = Mid(Range(＂a1＂), leftloc + 1, textlen - leftloc - 1) End Sub
喀喇沁左翼蒙古族自治县19582297378： 请大侠帮我写个Excel VBA代码,扫描枪输入数据后在后面一列自动添加时间,然后自动跳到下一行第一列 - ？
邗婵灯银： 提示: 插入模块,编辑一个宏: 1、用 getobject 函数,将 d:\my documents\数据备份.xls 文件读取到内存. 2、用语句 range(＂a1000＂).end(xlup).row 读取最后一行行号n,假若超过1000行,只要改变1000即可. 3、判断a5单元格是否为零,...
