 上传我的文档
 上传文档
 下载
 收藏
粉丝量：136
该文档贡献者很忙，什么也没留下。
 下载此文档
VB程序设计 习题及答案第5章 循环结构程序设计
下载积分：30
内容提示：VB程序设计 习题及答案第5章 循环结构程序设计
文档格式：PDF|
浏览次数：523|
上传日期： 17:26:17|
文档星级：
全文阅读已结束，如果下载本文需要使用
 30 积分
下载此文档
该用户还上传了这些文档
VB程序设计 习题及答案第5章 循环结构程序设计
关注微信公众号五笔，VB代码，赚钱发财
当前位置： >>
12:01:53&&分类: VB程序题&&参与: 人
VB程序题：用单循环实现如下图所示的界面。AAAAAAAAAAAA VB源码 龚沛曾
解题，代码如下：
Private Sub Form_Click()
&For i = 1 To 10 Step 1
&& Print Tab(i); String((20 - 2 * i), Chr(64 + i))
注：Tab(i) 决定字符前有多少个空格，Chr(64 + i)决定输出什么字符，String((20 - 2 * i), Chr(64 + i))决定输入多少个字符。
运行程序，点击窗体，运行程序效果图如下：
Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码
本文链接：
本站文章搜索：
<a class="xiat" href="http://www.wb98.com/post/72.html" title="VB程序题：计算 S=1 + 1/2 + 1/4 + 1/7 + 1/11 + 1/16 + 1/22 + 1/29 + …… 当第i项的值下一篇 &&
相关文章 9:14:57 16:48:19 16:20:19 14:40:48 13:55:44 11:20:47豆丁微信公众号
君，已阅读到文档的结尾了呢~~
vb循环结构选择题
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
vb循环结构选择题
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口用VB写设计程序代码,求：s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. 要求用DO循环
问题描述：
用VB写设计程序代码,求：s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. 要求用DO循环
问题解答：
在窗体放一个按钮Private Sub Command1_Click()Dim n As Long,i As Long,sum As Double,sum0 As Doublen = Val(InputBox("输入一个正整数"))Do While i
我来回答：
剩余:2000字
这个是sql语言写的declare @a intset @a = 1while @a
Dim s1 As String,s2 As String,i As Integer,j As Integers1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"s2 = ""For i = 1 To Len(s1)For j = 1 To Len(s2)Print
这是比较初级的写法.难了偶不会.不过比较简单.Dim s As StringDim a As StringDim i As IntegerDim j As IntegerFor i = 1 To 9 Step 1s = ""For j = 1 To i Step 1a = Str(i) + "*" + Str(j) +
import javax.swing.*; import java.awt.*; import java.awt.event.*; public class Calculator extends JFrame implements ActionListener { private boolean dotExist, o
本人没学过 只是编程爱好者 献丑了问题1Private Sub Command1_Click()Text3 = ""Dim A1 As IntegerDim A2 As IntegerDim A3 As IntegerA1 = Text2A2 = 1 & Text2A3 = 2 & Text2AAAA = Split(
控件列表:label1label2label3label4(以上为题目方框)frame1frame2frame3frame4(以上为4题的选择内容框)option1option2option3option4option5option6option7option8(以上为单选题按钮)check1check2check3c
Private Sub Command1_Click()Dim I, J, X, Y, Z As IntegerDim A(1 To 10000) As IntegerDim Flag As BooleanX = Int(InputBox("请输入一个正整数"))Print X & "=";Y = 1: Z = 1Fo
#includeint f(int x){if(x 再问： 十分感谢。新手不太知道怎么入门，能介绍一下吗？ 再答： 开始最好是先看点基础视频，入门是最困难的（辅助找本书，都差不多，开始别找难的，谭浩强的就行），入门之后就是练习，多敲代码（最关键，找感觉），一般人不靠c语言吃饭，练习到一定程度给其他知识做个铺垫就行了，要
代码发错了吧,这段代码与字符统计无关,好象是在计算 数组 a(k)中 的数等于各位数字的立方和的和有多少个,总和是多少吧.
给你另外一种求法Dim a As LongDim b As LongDim t As Longa = 42b = 30t = aDim result As Longresult = 1For i = 1 To t If (a Mod i) = 0 And (b Mod i) = 0 Then a = a / i b =
Private Sub Command1_Click()Dim n As Long 'n必须是长整型,否则会溢出Dim x As Single,sum As Singlen = 1Dox = 1 / (2 * n - 1)n = n + 1sum = sum + xLoop Until x < 0.00001Text1
你的问题不够具体…那么我给你一个例子,你参考下:Private Sub Form_Load()Dim a(1 To 50)ShowFor i=1 To 50a(i)=101*RNDsum=sum+a(i)Next iPrint sumEnd Sub以上希望能给你帮助,求和主要是用到循环,可以用For和Do.
/>#include&iostream&using&namespace&int&main(){int&N;char&num[1010];//用一个字符串存储读入的整数,多开10位以防越界int&answer=0;//答案,因为1000位数每
Private Sub Command1_Click()Dim min, max, n, i, a()min = Val(Text1)max = Val(Text2)n = Val(Text3)ReDim a(n)RandomizeFor i = 1 To nDoa(i) = Int(Rnd * (max - min
PRINT有个缺点,如果被窗体挡一下 打印上去的文字就会消失,你在FORM LOAD 中,用PRINT 是不行的,因为在窗体还没出来之前就打印好了,出来是文字是会消失的,你的代码是没错的 你用MSGBOX吧 我下面帮你改好了或者放到其他控件里Option ExplicitPrivate Sub form_load()D
按你的思路,应该是给定两个数a,b；判断是否属于 一个奇数一个偶数或两个奇数 的情况,不是除2,若是,需要检测两个数是否互质,不是就要除以他们的一个最小公因子,然后循环这样的操作就能实现你的思路,但耗费时间久,效率低,本质还是再求最大公因子.其实求最小公倍数可以采用& 两个数的乘积/最大公约数的 方法.思路清
VB的Scale方法是用来自定义坐标系统的,比如 Form1.Scale (-200,-100)-(200,100) 就是把窗口Form1的左上角设为(-200,-100),右下角设为(200,100)
界面放一个label、一个command、一个text代码如下：Const 允许误差 = 0.0005 '这里控制允许误差Private Sub Command1_Click()Me.ClsIf IsNumeric(Text1) Thenx = Val(Text1)Doy = 函数(x)k = 斜率(x)误差 = y
你的函数是y = u0*t + 2*v0*(t+1)^2初始条件是y(0) = 2, y'(0) = 4对不?我改了下,最后一行,改成 [u0,v0]=solve('y0=2','dy0=4');结果就是,u0 = 4 v0 =2>> y0y0 =2*v0>> dy0dy0 =u0 + 4*v0 我的matlab版本
也许感兴趣的知识Access denied | share.freesion.com used Cloudflare to restrict access
Please enable cookies.
What happened?
The owner of this website (share.freesion.com) has banned your access based on your browser's signature (450d54faa1e0986b-ua98).}