用vb编程，窗体中有一个命令按钮。程序运行时，单击“显示”命令按钮，在窗体上显示1000以为个位数
用vb编程，窗体中有一个命令按钮。程序运行时，单击“显示”命令按钮，在窗体上显示1000以为个位数为5且能被3整除的所有自然数。要求一行显示5个数据
均匀排列
代码如下：
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim a(5) As String
i = 5
k = 0
For j = 1 To 1000
i = i + 5
If i Mod 3 = 0 And Right(CStr(i), 1) <> 0 Then
k = k + 1
If i < 1000 Then
a(k) = i
Else
a(k) = ""
End If
If k Mod 5 = 0 Then
Print Tab(5); a(1); Tab(15); a(2); Tab(25); a(3); Tab(35); a(4); Tab(45); a(5)
k = 0
If i > 1000 Then Exit For
End If
If j Mod 5 = 0 Then Print ""
End If
Next j
End Sub
if (right(i,1)=5) and (i mod 3=0) then
x=x+1
print i;
if x mod 5=0 then print
endif
next本回答被提问者采纳
请问在VB里面如何设计程序找出1000以内的完数?
1、启动VB6.0，新建一个标准exe工程。2、在窗体上绘制一个命令按钮，名称为Command1。3、双击命令按钮进入代码窗口。4、编写命令按钮的单击事件。Private Sub Command1_Click()For n = 1 To 1000 s = "" '这一句要加上 Sum = 0 For i = 1 To n \/ 2 If n Mod i = 0 Then Sum = ...
vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
用VB编制程序实现:在窗体上,单击按钮1,在文本框中动态显示当前时间...
窗体load事件：timer1.interval=1000 timer1.enabled=false 时钟timer事件：text1.text=time 第一个按钮：timer1.enabled=true 第二个按钮：timer1.enabled=false
...窗体中显示1~1000之间的所有素数。 2、 编写程序,程序运行以后,单击...
VB编程答案如下：Private Sub Command1_Click()For n = 2 To 1000 For i = 2 To Int(Sqr(n))If n Mod i = 0 Then Exit For End if Next I If i > Int(Sqr(n)) Then Print n;Next n End Sub 说明：1、Next i前一行加 End if是为了与前面的if构成完整的if...end if 语句...
VB 编写一个简单程序,要求:单击命令按钮来显示或隐藏标签,具体点的解答...
打开vb新建一个工程，保存好 窗体上画一个一个命令按钮command1（命令按钮标题“隐藏”），一个标签label1，标签最好打几个字 双击命令按钮进入代码编辑器 写如下代码：if command1.caption='隐藏' then label1.visible=false command1.caption='显示'else label1.visible=true command1.caption='隐藏...
vb里一个窗体中的命令按钮 按下去 会执行另外一个窗体中的命令按钮的...
1）在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。Value 属性，CommandButton 控件－返回或设置指示该按钮是否可选的值；在设计时不可用。Private Sub Command1_Click() Form2.Command1.Value = TrueEnd Sub2）VB中只需在另一窗体添加一个Timer控件，在当前窗体呼唤该窗体的...
...文本框中输入一个字符,单击命令按钮,在窗体上显示该字符的AscII值...
Private Sub Command1_Click()a = InputBox("输入要验证ASCLL码的字符")k = Asc(a)Print k End Sub
VB编写程序:设计一个程序,当单击窗体时,在窗体上显示任意一幅图片。
假设你的图片路径为d:\\fafa.gif,代码如下：Private Sub Form_Click()Picture1.Picture = IIf(Picture1.Picture = LoadPicture(""), LoadPicture("d:\\fafa.gif"), LoadPicture(""))End Sub 这样就可以单击切换图片了，对了，你要加一个图片框控件，再写入代码 ...
...有一个名称为cmd1、标题为“计算”的命令按钮...
Lab6.Caption = hs2.Value Lab4.AutoSize = True End Sub Private Sub hs1_Change()Lab5.Caption = hs1.Value '添加的Label,是你图片中在hs控件后面显示的数字 End Sub Private Sub hs2_Change()Lab6.Caption = hs2.Value '添加的Label,是你图片中在hs控件后面显示的数字 End Sub ...
如何用VB设计一个简单的应用程序来实现“单击按钮打开运行计算机中的...
As String, ByVal nShowCmd As Long) As Long '再窗体画个按钮 private sub command1_click()ShellExecute me.hwnd,"open","文件路径","运行参数","",显示方式 end sub '其中文件路径为你要打开的文件，当然不只exe文件，如果是exe文件则可以带参数，显示方式有很多种，为1时表示正常显示 ...
