在VB程序设计中一点遇到的小疑惑

作者&投稿:蔺农 (若有异议请与网页底部的电邮联系)
用VB编程中的疑惑~

do while sum < 400000
这个语句你的结果是正确的榀..

因为当S还等于4时, SUM的值是没有超过400000的,所以继续循环DO,
当S=5时, SUM=86400000 ,这时超过了,所以DO循环结束,它不再执行S=6的代码,
而是跳到LOOP的后面执行了PRINT

你如果想变成正确的就要这样:

Do While s ^ s * sum < 400000
s = s + 1
sum = s ^ s * sum
Loop

VB 不能这样比较1 < a < 10, 这样比较只会判断前面的条件即相当于 1 < a 所以当然都执行啦。
用 and连接吧。

填加Text2_LostFocus()事件。


VB程序设计实习指导内容简介
最后,附录部分提供了VB常用函数、操作命令的参考,以及程序运行时可能遇到的错误代码解释和参考答案,为读者在学习和实践过程中提供额外的帮助和支持。本书通过16个实习,从基础技能到实际应用,全面覆盖了Visual Basic程序设计的学习路径,旨在帮助读者系统地掌握VB编程,提升解决实际问题的能力。

vb 程序设计 计算 1!+(1!+2!)+。。
'直接复制就成,汉字是以注释形式写的,不影响代码运行。Private Sub Command1_Click()Dim m As String, n As Long Dim a As Long, b As Long, C As Long a = 1: b = 0: C = 0 m = InputBox("请输入一个不大于10的正整数", "提示")If 0 <= m And m < 10 Then n = m...

vb程序设计求解啊?
回答如下:第(1)题Form.click事件(即窗体的单击)代码中,先给num变量赋值0,后面跟了一个循环语句,只要num小于等于5,都会累加1,然后输出。因此,单机窗体,输出的是 num=1 num=2 num=3 num=4 num=5 num=6 第(5)题,是先自定义了一个函数div,有两个变量x,y。它的功能就是先让t=...

VB中“:”是什么意思
VB是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置,而只要把...

请哪位高手设计一VB程序,可以在一组文本框中输入的数据,单击按钮后将...
Private Sub Command1_Click()Dim a(3) As Single a(1) = Text1 a(2) = Text2 a(3) = Text3 Picture1.Scale (-5, 20)-(20, -5)Picture1.Line (0, 0)-(20, 0)Picture1.Line (0, 0)-(0, 20)Picture1.Line (3, 0)-(5, a(1)), vbRed, BF Picture1.CurrentX = 3...

vb设计程序,从文本框中输入一个整数n(n<500),单击处理按钮时产生3个...
Private Sub Command1_Click()Dim Plate As Integer Dim a(3) As Integer Randomize Plate = Val(Text1.Text) - 1 For i = 1 To 3 a(i) = Int(Rnd() * Plate + 1)Next Label1.Caption = a(1)Label2.Caption = a(2)Label3.Caption = a(3)End Sub ...

应用程序界面的设计操作在vb的哪一种工作模式中进行
当程序处于设计模式时,除了可以设置断点和创建监视表达式外,不能使用其它调试工具。(2)运行模式:在运行模式中,用户可以查看程序的代码,但却不能改动它。(3)中断模式调试:VB应用程序的大部分工作都要在中断模式下进行,VB的大部分调试工具也只能在中断模式下使用。下列情况都进入中断模式。

vb程序设计 简单 如何通过命令按钮 把文本框中的文字变成粗体?
2、单击文本框,在属性窗口分别设置文本框的属性,清空文本的内容,如下图所示。3、在窗体上面,添加一个命令按钮,如下图所示。4、单击命令按钮,在属性窗口中,设置命令按钮的属性,如下图所示。5、双击命令按钮,编写其代码,如下图所示。6、运行程序,在第一个文本框中,输入“baidu”,点击“转换...

VB程序红绿灯设计
2、 接着,在弹出选取图片对话框,选择合适的红绿灯素材来体现效果,这里先选取了一张红灯的图片。3、在Image属性面板的名称属性上,将其改名为red,标识后就不会与其他图混淆。4、在VB编程的界面中也可以直接复制控件,如将red这个Image控件复制两个出来,不加入控件组,并将后两个依次改名为yellow、...

VB设计程序,在一个文本框输入一串字符(大于2个),点击处理按钮取字符串的...
Private Sub Command1_Click() Label1.Caption = IIf(Len(Text1) > 2, Left(Text1, 1) & Right(Text1, 1), "")End SubPrivate Sub Form_Load() Text1 = "abcde"End Sub

原平市18863601509: VB编程的几个小问题 -
宫钥红药: 1、来自msdn:Opcode 可选的.是长型值或仅由位图使用的代码.它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作(例如, vbMergeCopy 或 vbSrcAnd 操作符).关于位操作符常数的完整列表,请参阅 Visual Basic Help 文件中...

原平市18863601509: VB编程,疑问? -
宫钥红药: 1.dim a as String a=textbox1.text2.dim a as String a="fdsaf" textbox1.text=a

原平市18863601509: VB编程里遇到的问题 -
宫钥红药: 没有引用对象库.在“工程”--“引用”中引用ADO的对象库.名字应该叫做Microfost ActiveX data object x.x library x.x为版本号,引用最高的版本即可.

原平市18863601509: vb程序设计里的问题 -
宫钥红药: 1.在你给的程序上看来无用2.指当前窗口,默认就是form1嘛,但Combo1.ListIndex 是对的

原平市18863601509: VB设计中的一个问题 -
宫钥红药: For i = 0 To Len(a) Temp = Asc(Mid$(a, i, 1)) i=0的时候mid$(a,0,1),mid的第二个参数无效.改为:For i = 1 To Len(a) Temp = Asc(Mid$(a, i, 1))

原平市18863601509: vb设计程序遇到的问题 -
宫钥红药: 你改的是窗口边框吧,不是窗口大小,用 form1.height=5000 form1.width=9000 来改,而且检测combo的值的改变用 Private Sub Combo1_Click() { } 写代码自己检测,或者不检测直接写在click事件里,那个Combo1_Change()事件不好用.

原平市18863601509: 关于VB程序设计的一个很简单很简单的小问题!!!
宫钥红药: 如果要固定图片框大小,那么使用image控件,设置stretch属性为true即可 autosize属性表示的是picturebox的尺寸自动适应图片的尺寸,而不是图片的尺寸自动适应picturebox的尺寸. 另外你看看你是不是用错了控件:picturebox和imagebox差异...

原平市18863601509: VB编程的问题
宫钥红药: 如果你是VB.NET的话,那么值需要设置WebBrowser的控件的Dock属性为Fill即可,如果是VB6那么 Private Sub Form_Resize() Me.WebBrowser1.Width = Me.Width - 500 Me.WebBrowser1.Height = Me.Height - Me.WebBrowser1.Top - 1000 End Sub这里的500和1000请根据实际值进行调整

原平市18863601509: vb 编程中遇到的问题.求助高手谢谢
宫钥红药: 如果你知道你的循环次数,一般都用for ,如果不知道次数的话,一般都用do while.. 最顺手的当然是for,简单明了,但for不具备do while的功能 就这么着.

原平市18863601509: VB编程遇到问题 -
宫钥红药: 看一下登陆窗体,双击“登陆”按钮,看一下在button_click事件中的源码,如果有输入判断用户名和密码,如 if text1.text="某用户名" and text2.text="用户得输入的密码" then …… else MsgBox "用户名或密码错误,登陆失败",vbokonly+...

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网