用vb编写一个小程序程序

如题所述

第1个回答 2020-02-08

新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。
新建一个命令按钮Command1,添加以下代码：
Private
Sub
Command1_Click()
Dim
i
As
Integer
For
i
=
1
To
100
If
(i
Mod
5
=
0)
And
(i
Mod
3
<>
0)
Then
Text1.Text
=
Text1.Text
&
vbCrLf
&
i
Next
End
Sub

相似回答

如何使用VB编写一个简单的小程序?答：在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...

vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的制作方法答：1、首先启动vb6.0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。3、选择窗体，在其右边的属性中找到boderstyle属性，设置属性值为none，...

请用vb编写一个找出10000以内的亲密数对的小程序答：Text1 = Text1 & "=" & Yzh & Chr(13) & Chr(10)End Function 程序计算结果，有5组亲密数对，程序输出是：(220,284)220=1+2+4+5+10+11+20+22+44+55+110=284 284=1+2+4+71+142=220 (1184,1210)1184=1+2+4+8+16+32+37+74+148+296+592=1210 1210=1+2+5+10+11+22+...

vb 制作一个小程序,标题栏带有问号按钮,怎么点击这个按钮进入我设计的窗...答：1、首先，双击窗体空白处进copy入代码窗口。2、然后我们在事件中找到百Click事件。3、这个度时候开始编写代码测试【问Print "我是Click单击答属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。

用VB语言实现一个小程序答：小程序很简单，不用控件，代码如下：Dim A(4) As String, B(4) As Integer, C(4) As String, St As StringDim I As Integer, J As Integer, H1 As Integer, H2 As Integer Private Sub Form_Load() Form1.AutoRedraw = True A(1) = "葡萄牙" A(2) = "西班牙" A(...

用VB做一个简单的小程序答：N As Integer, i As Integer N = InputBox("n=", , 9) For i = 1 To 2 * N - 1 If i <= N Then Print Space(N - i) + String(2 * i - 1, CStr(i)) Else Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * ...

很简单的一个vb小程序,高手快来啊!答：End Sub Private Sub cspw_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command1_Click End If End Sub 在VB程序中显示时间：label1.caption = time 补充：那你就再添加一个Label控件，在cspw下面，把msgbox那一句替换成Label1.Caption = "密码错误！"就可以了 ...

VB写个小程序答：首先在Command1的click按钮事件中编写代码，获取点击DTPicker1时选中的日期DateStr。然后根据DateStr来找到Data控件连接的XS数据中的B列同一个日期项，最后根据这项找出这行对应的B列金额数据。对于一天的金额统计，也是根据这个原理。根据要求取出数据之后，再返回进行加法操作。最后在窗体上进行显示。这是...

用vb编写一个小程序程序答：新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。新建一个命令按钮Command1,添加以下代码：Private Sub Command1_Click()Dim i As Integer For i = 1 To 100 If (i Mod 5 = 0)And (i Mod 3 <> 0)Then Text1.Text = Text1.Text & vbCrLf & i Next End ...

大家正在搜

用vb编写简单小程序用vb编写红绿灯小程序 vb编写各种趣味小程序用vb编写发红包程序 100个vb精彩小程序源码实例简单vb实用小程序怎么用vb写程序 vb如何编写程序代码 vb简单小程序制作教程