个人中心
我的提问
我的回答
今日任务
我的设置
退出
文档资料
电脑网络
体育运动
医疗健康
游戏
社会民生
文化艺术
电子数码
娱乐休闲
商业理财
教育科学
生活
烦恼
资源共享
其它
歪果仁看中国
爱问日报
精选问答
爱问教育
爱问公益
爱问法律
你可以用for循环datagrid1 计算出和,然后赋值给text1 希望能给你帮助。
1个回答
见附件。注意: 1,其中用到了正规表达式,所以在工程引用中要加上“Microsoft VBscript RegularExpresion 5.5”。 2,定义了一个字符串ai,其中包含了要忽略的单词比如a, the, and, of 等等,你可以增减。
这是二级真题吧! Text控件有个文本长度属性,把它设为20. 截取字符串函数left(21,len(string)-20)放入text2. 查找函数instr。
满足3的倍数有:3、6、9、12、15、18、21、24、27、30、33、36、39、42、45、48、51、54、57、60、63、66、69、72、75、78、81、84、87、90、93、96、99 满足7的倍数有:7、14、21、28、35、42、49、56、63、70、77、84、91、...
你好 有 21 42 63 84 好评谢谢
机器数表示方式(无论何种码,正数都相同) 原码:正数与负数,范围(通用公式) 反码:负数除符号位取反(绝对值越大,面值越小) 补码:反码加1,求补码的方法,表示范围 0的三种码:+0与-0的原码、反码不同,但补码相同
Private Sub Command1_Click() Dim i As Integer, j As Integer Dim A(0 To 19) As Integer, B(0 To 19) As Integer Me.Cls Randomize Print "产生20个两位随机数" For i...
闰年每4年一次,用年除以4,没有余数那一年就是闰年。2014年到3000年总共有246个闰年。
2个回答
不规律也没事 用COUNTIF() 比如 A列是一堆数字,算A列共有多少个数字11,随便找个格子,写=countif(a:a,"11") 如果算A列中 a1里面内容出现的次数 =countif(a:a,a1) 还有双条件求和什么的,不会再M我
这个是用EXCEL的VBA做的,结果是正确的,但不一定满足您的要求啊 Sub xzm() Dim str$, str1$, str2$ Dim k%, m%, n%, p% n = Int(Rnd() * 21) + 5 For i = 1 To n m = Int(Rnd() * 26) + 65...
Private Sub Command1_Click()Dim a(20) As LongText1 = 0Text2 = 0Text3 = 0a(1) = 44a(2) = 0For i = 1 To 20x = a(i)If x > 0 Then Text1 = Text1 1 '统计整数I...
统计单词个数 Dim a As Variant Dim i As Integer, intWordCount As Integer a = Split("I love you") intWordCount = 0 For i = 0 To UBound(a) If a(i) <> "" The...
Visual Basic(简称 VB)