10983.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 27 行

HTML
27 行
字号 
<html>
  <head>
    <title>Re: 有疑问?????&amp;谢谢!!</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 有疑问?????&amp;谢谢!!</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by 阿远 on March 15, 1999 at 23:24:36:<p>
In Reply to: <a href="10935.html">这个不会很难啊???</a> posted by 笋子 on March 14, 1999 at 15:47:59:<p>
: : 的算数程式<br>: : 算式及解都能显现在表单上<br>: : 那我该如何去做????<br>: 从 1+2+3... 和阶层都适用....<br>: VERSION 5.00<br>: Begin VB.Form Form1 <br>:    Caption         =   "Form1"<br>:    ClientHeight    =   2820<br>:    ClientLeft      =   60<br>:    ClientTop       =   345<br>:    ClientWidth     =   6045<br>:    LinkTopic       =   "Form1"<br>:    ScaleHeight     =   2820<br>:    ScaleWidth      =   6045<br>:    StartUpPosition =   3  '系统预设值<br>:    Begin VB.CommandButton Command2 <br>:       Caption         =   "计算结果"<br>:       Height          =   375<br>:       Left            =   1440<br>:       TabIndex        =   6<br>:       Top             =   2160<br>:       Width           =   1095<br>:    End<br>:    Begin VB.CommandButton Command1 <br>:       Caption         =   "计算结果"<br>:       Height          =   375<br>:       Left            =   120<br>:       TabIndex        =   5<br>:       Top             =   2160<br>:       Width           =   1095<br>:    End<br>:    Begin VB.TextBox Text3 <br>:       Height          =   1335<br>:       Left            =   120<br>:       TabIndex        =   4<br>:       Top             =   720<br>:       Width           =   5655<br>:    End<br>:    Begin VB.TextBox Text2 <br>:       Height          =   495<br>:       Left            =   3360<br>:       TabIndex        =   1<br>:       Text            =   "10"<br>:       Top             =   120<br>:       Width           =   1935<br>:    End<br>:    Begin VB.TextBox Text1 <br>:       Height          =   495<br>:       Left            =   840<br>:       TabIndex        =   0<br>:       Text            =   "1"<br>:       Top             =   120<br>:       Width           =   1695<br>:    End<br>:    Begin VB.Label Label2 <br>:       Caption         =   "结束值"<br>:       Height          =   255<br>:       Left            =   2640<br>:       TabIndex        =   3<br>:       Top             =   240<br>:       Width           =   615<br>:    End<br>:    Begin VB.Label Label1 <br>:       Caption         =   "起始值"<br>:       Height          =   255<br>:       Left            =   0<br>:       TabIndex        =   2<br>:       Top             =   240<br>:       Width           =   615<br>:    End<br>: End<br>: Attribute VB_Name = "Form1"<br>: Attribute VB_GlobalNameSpace = False<br>: Attribute VB_Creatable = False<br>: Attribute VB_PredeclaredId = True<br>: Attribute VB_Exposed = False<br>: Private Sub Command1_Click()<br>: If Text1 <> "" And Text2 <> "" Then<br>:     If IsNumeric(Text1) And IsNumeric(Text2) Then<br>:         For i = Text1 To Text2<br>:             Total = Total + (i)<br>:         Next i<br>:         Text3 = Total<br>:     End If<br>: End If<br>: End Sub<p>: Private Sub Command2_Click()<br>: If Text1 <> "" And Text2 <> "" Then<br>:     If IsNumeric(Text1) And IsNumeric(Text2) Then<br>:         Total = ((Int(Text1) + Int(Text2)) * (Int(Text2) - Int(Text1) + 1)) / 2<br>:         Text3 = Total<br>:     End If<br>: End If<br>: End Sub<p>谢谢!<br>那如果在Private Sub Form_Activate()之下要如何作ㄋㄟ???<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10983-->
<!--top: 11007--><li><a href="11007.html">懒的再改了</a> <b>笋子</b> <i>15:38:19 3/16/99</i>
(<!--responses: 11007-->0)
<ul><!--insert: 11007-->
</ul><!--end: 11007-->
</ul><!--end: 10983-->
<br><hr size=7 width=75%><p>

</body></html>

10983.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 10983.html 源码文件，采用 HTML 编程语言编写，共 27 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?