16721.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 22 行

HTML
22 行
字号 
<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 猪头 on August 05, 1999 at 21:15:46:<p>
请问   如果要比对其中第3个栏位   (5个栏位明名称各不同)  应如何分别 <br>又  如果"aa"是个变数(由Textbox 或由Label 来决定)  这样写对吗---- <br>Val(x)=	Text1.text  或 Val(x)=label1.label<br>If rec.TR(J) = x<br>这样可以吗 错在那里?<p><p>Option Explicit<br>Private Type Score<br>TR(1 To 5) As String * 2'/*共10个位元组*/<br>End Type<br>Dim rec As Score, I As Byte, J As Byte, s As Long<p>Private Sub Command1_Click()<br>Open "c:\WW.TXT" For Random As #1 Len = 10'/*每笔资料10个位元组*/<br>For I = 1 To 100'/*到100笔资料*/<br>Get #1, I, rec<br>For J = 1 To 5'/*共5个栏位*/<br>If rec.TR(J) = "AA" Then s = s + 1<br>Next<br>Next<br>Close #1<p>Me.Caption = s<br>End Sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16721-->
</ul><!--end: 16721-->
<br><hr size=7 width=75%><p>

</body></html>

16721.html - 源码说明

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

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

⌨️ 快捷键说明

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