📄 20062.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: 一个问题(范例程式,请勿照抄)</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 一个问题(范例程式,请勿照抄)</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:vincent018@ucs.com.tw">vincent</a> on October 13, 1999 at 09:42:19:<p>In Reply to: <a href="20046.html">一个问题</a> posted by 小玉 on October 12, 1999 at 22:19:27:<p>: 我在写一个程式<br>: 是有关测验题的应用程式<p>: 构想是说<br>: 当我按向enter时<br>: 画面会显示第二个题目<br>: 原本是朝向以form1,form2的方式。<p>: 现在却觉得太多的form是个累赘<br>: 想改变方向当我按enter时<br>: 画面会显示第二个题目<br>: 但是，却还是在form1上<br>: 请问，我该如何做呢？<p>: 第二个问题是<br>: 之前我问了一个有关卷轴的问题<br>: 我却无法举一反三的把它写出来。<br>: （ps:我也觉得自己很笨）<br>: 但是，我下定决心，一定要把它完成。<br>: 所以，能否请各位高手<br>: 把程式内容写下来教我呢！<p>: 谢谢你们！<p>Dim question(9) As String<br>Dim qindex As Integer<p>Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)<br>If KeyCode = vbKeyReturn Then<br>   Label1.Caption = question(qindex)<br>   qindex = qindex + 1<br>End If<br>If qindex = 10 Then qindex = 0<br>End Sub<p>Private Sub Form_Load()<br>Dim i As Integer<p>qindex = 0<br>Label1.Caption = ""<br>For i = 0 To UBound(question)<br>   question(i) = "第" & Str(i + 1) & "个问题"<br>Next i<br>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20062--></ul><!--end: 20062--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -