10935.html

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

HTML
31 行
字号 
<html>
  <head>
    <title>这个不会很难啊???</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>这个不会很难啊???</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:shinn@ms1.hinet.net">笋子</a> on March 14, 1999 at 15:47:59:<p>
In Reply to: <a href="10927.html">请问................... </a> posted by  阿远  on March 13, 1999 at 21:15:01:<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<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10935-->
<!--top: 10983--><li><a href="10983.html">Re: 有疑问?????&amp;谢谢!!</a> <b>阿远</b> <i>23:24:36 3/15/99</i>
(<!--responses: 10983-->1)
<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-->
</ul><!--end: 10935-->
<br><hr size=7 width=75%><p>

</body></html>

10935.html - 源码说明

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

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

⌨️ 快捷键说明

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