vb编程设计例题100例
@宰纨5986：100分 简单的VB程序设计题目
周适19593124898…… Private Sub Command1_Click() Dim a(10) As Integer, b(10) As Integer For i = 1 To 10 a(i) = InputBox(＂输入第＂
@宰纨5986：vb程序设计例题 -
周适19593124898…… 修改好了测试成功,但是,基本上,偶数和会大于所有的数 Private Sub Command1_Click() Dim a(10) As Double Dim t As Double Randomize For i = 1 To 10 a(i) = Int(Rnd * 100 + 2) '设十个数,给十个数随机赋值 If a(i) Mod 2 = 0 Then t = t + a(i): Print ＂偶数为＂; a(i) Next i Print ＂偶数的和为＂; t For i = 1 To 10 If a(i) < t Then Print ＂小于偶数和的数＂; a(i) Next i End Sub
@宰纨5986：...十位数字与个位数字相同(即:A=B,B=D),求出这个数.编程题第2题.取一元、二元、五元的硬币共十枚,付给25元钱,有多少种不同的取法?3、窗框设... - 作业帮
周适19593124898…… [答案] Private Sub Command1_Click() Dim a, b, c, d For a = 1 To 9 For c = 0 To 9 b = a d = c If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d Next Next End Sub 答案是7722
@宰纨5986：vb编程实例 -
周适19593124898…… 去百度文库,查看完整内容> 内容来自用户:可爱的小滨滨3 用VB编写一个密码解锁界面 我也是刚开始学VB语言,VB语言很强大,有别于其它语言,操作性很强,是很富有创造性的电脑语言.下面是我看了两天书后编写的一个小程序:功能是...
@宰纨5986：vb 程序设计 代码1. 按钮＂第一题＂:找出100 - 200之间的所有素数,并对它们求和.2. 按钮＂第二题＂:求S=a+aa+aaa+……+aaaa…a(n个a,a为1 - 9之间的... - 作业帮
周适19593124898…… [答案] 主题我已选定,构思大纲已经几乎完成,现在需要帮你填好信息.
@宰纨5986：VB程序设计编程题
周适19593124898…… Dim i, j, k As Integer For i = 1 To 100 For j = 1 To i If i Mod j = 0 Then k = k + 1 End If Next If k = 2 Then Print ＂1-100中素数有＂ & i End If k = 0 Next
@宰纨5986：vb的题,不难的,三、设计一个算法,求100以内能被3整除的所有正整数并用流程图描述出来,然后根据流程图编写出程序.共1题)(答案:略)四、阅读程... - 作业帮
周适19593124898…… [答案] 三、 Dim i As Integer For i = 1 To 99 If i Mod 3 = 0 Then Debug.Print i Next i 四、S=-20 五、1、Next j;Next i 2、100;1/i
@宰纨5986：VB 编程题目 -
周适19593124898…… 第一题只是个界面 自己设计一个界面就可以了 '第二题示例代码如下: Private Sub Form_Click() Dim a As String a = InputBox(＂请输入一串字符:＂) Print a a = UCase(a) For i = 1 To Len(a) If Mid(a, i, 1) >= ＂A＂ And Mid(a, i, 1)
@宰纨5986：几道简单的VB编程题,来个高手
周适19593124898…… 呵呵,第一个 sub a() t=1 for i=1 to 10 t=t*i next i print t end sub 第二个 sub b() sum=0 for i=1000 to 200 step 2(这个是求偶数)for i=1001 to 2000 step 2( 这个是求奇数) sum=sum+i next i print sum end sub 第三个 sub c() for i= 1 to 5 print tab(2*i+10);strint (8,＂*＂) next i end sub 完了,给个满意答案啊
@宰纨5986：VB编程题 -
周适19593124898…… 第一次循环结束:第二次循环结束时:K=1,b(3-K)=b(2)=a(K+1)=a(2)=3 第三次循环结束时:K=2,b(3-K)=b(1)=a(K+1)=a(3)=5 b(K)=b(3)=1
周适19593124898…… Private Sub Command1_Click() Dim a(10) As Integer, b(10) As Integer For i = 1 To 10 a(i) = InputBox(＂输入第＂
@宰纨5986：vb程序设计例题 -
周适19593124898…… 修改好了测试成功,但是,基本上,偶数和会大于所有的数 Private Sub Command1_Click() Dim a(10) As Double Dim t As Double Randomize For i = 1 To 10 a(i) = Int(Rnd * 100 + 2) '设十个数,给十个数随机赋值 If a(i) Mod 2 = 0 Then t = t + a(i): Print ＂偶数为＂; a(i) Next i Print ＂偶数的和为＂; t For i = 1 To 10 If a(i) < t Then Print ＂小于偶数和的数＂; a(i) Next i End Sub
@宰纨5986：...十位数字与个位数字相同(即:A=B,B=D),求出这个数.编程题第2题.取一元、二元、五元的硬币共十枚,付给25元钱,有多少种不同的取法?3、窗框设... - 作业帮
周适19593124898…… [答案] Private Sub Command1_Click() Dim a, b, c, d For a = 1 To 9 For c = 0 To 9 b = a d = c If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d Next Next End Sub 答案是7722
@宰纨5986：vb编程实例 -
周适19593124898…… 去百度文库,查看完整内容> 内容来自用户:可爱的小滨滨3 用VB编写一个密码解锁界面 我也是刚开始学VB语言,VB语言很强大,有别于其它语言,操作性很强,是很富有创造性的电脑语言.下面是我看了两天书后编写的一个小程序:功能是...
@宰纨5986：vb 程序设计 代码1. 按钮＂第一题＂:找出100 - 200之间的所有素数,并对它们求和.2. 按钮＂第二题＂:求S=a+aa+aaa+……+aaaa…a(n个a,a为1 - 9之间的... - 作业帮
周适19593124898…… [答案] 主题我已选定,构思大纲已经几乎完成,现在需要帮你填好信息.
@宰纨5986：VB程序设计编程题
周适19593124898…… Dim i, j, k As Integer For i = 1 To 100 For j = 1 To i If i Mod j = 0 Then k = k + 1 End If Next If k = 2 Then Print ＂1-100中素数有＂ & i End If k = 0 Next
@宰纨5986：vb的题,不难的,三、设计一个算法,求100以内能被3整除的所有正整数并用流程图描述出来,然后根据流程图编写出程序.共1题)(答案:略)四、阅读程... - 作业帮
周适19593124898…… [答案] 三、 Dim i As Integer For i = 1 To 99 If i Mod 3 = 0 Then Debug.Print i Next i 四、S=-20 五、1、Next j;Next i 2、100;1/i
@宰纨5986：VB 编程题目 -
周适19593124898…… 第一题只是个界面 自己设计一个界面就可以了 '第二题示例代码如下: Private Sub Form_Click() Dim a As String a = InputBox(＂请输入一串字符:＂) Print a a = UCase(a) For i = 1 To Len(a) If Mid(a, i, 1) >= ＂A＂ And Mid(a, i, 1)
@宰纨5986：几道简单的VB编程题,来个高手
周适19593124898…… 呵呵,第一个 sub a() t=1 for i=1 to 10 t=t*i next i print t end sub 第二个 sub b() sum=0 for i=1000 to 200 step 2(这个是求偶数)for i=1001 to 2000 step 2( 这个是求奇数) sum=sum+i next i print sum end sub 第三个 sub c() for i= 1 to 5 print tab(2*i+10);strint (8,＂*＂) next i end sub 完了,给个满意答案啊
@宰纨5986：VB编程题 -
周适19593124898…… 第一次循环结束:第二次循环结束时:K=1,b(3-K)=b(2)=a(K+1)=a(2)=3 第三次循环结束时:K=2,b(3-K)=b(1)=a(K+1)=a(3)=5 b(K)=b(3)=1
