vb程序
发布日期：2019-02-15 14:48:00编辑：音乐人
概括：这道题是姚底琳同学的课后练习题，主要是关于vb程序，指导老师为康老师。
题目：vb程序
解：Private Sub Form_Load()
i = 7
Do
If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Exit Do
i = i + 1
Loop
MsgBox i
End Sub
答案是23
举一反三
例1： vb题下面程序的功能是什么?PrivateSubCommand1_Click()Dims%,n%DimaAsStringn=0a=InputBox("Pleaseinputanumber:")Fors=1ToLen(a)If(func(Val(Mid(a,s,1))))Thenn=n+1NextPrintnEndSubPrivateFunctionfunc(x%)AsBool
思路提示：
Private Sub Command1_Click()
Dim s%, n%
Dim a As String
n = 0
a = InputBox("Please input a number:")
For s = 1 To Len(a)
If (func(Val(Mid(a, s, 1)))) Then n = n + 1'利用mid取每个输入的数字,然后利用func函数判断
Next
Print n
End Sub
'以上是command的click事件爱你,用来判断你输入的数字中有几个偶数,下面的是自定义函数,用来判断是否是偶数.
Private Function func(x%) As Boolean
If (x Mod 2 = 0) Then
func = True
Else
func = False
End If
End Function
例2： （1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中（2）单击输入按钮,弹出一个输入对话框,接收用户输入的任意一个整数（3）单击插入按
思路提示：
Dim a(100) As Integer,num As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To 60
Input #1,a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To 60
'If num < a(i) Then exit for
Next i
For j = 60 To i step=-1
a(j + 1) =a(j)
Next j
a(i)= num
Text1 = ""
'以下程序段将插入后的数组A重新显示在Text1中
'For k = 1 To 61
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub
这段程序其实有点问题,它不能实现连续插入数字,只能插入一个数字.
例3： 请问以下两道VB题目怎么做1.单击分解按钮,程序提示输入一个大于2的整数,并将该数分解为因数的乘积,代码如下PrivateSubCommand1_Click()DimnAsInteger,FactorAsIntegerDimFirstAsBooleanDon
思路提示：
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, Factor As Integer
Dim First As Boolean
Do
n = InputBox("请输入一个大于2的整数")
If n 2
Factor = 2
First = True
Do
Do While (n Mod Factor = 0)
If First Then
Text1.Text = Str(n) + Space(1) + "=" + Str(Factor)
First = False
Else
Text1.Text = Text1.Text + Space(1) + "*" + Str(Factor)
End If
n = n / Factor
Loop
Factor = Factor + 1
Loop Until Factor > n
End Sub
Private Sub Cmd1_Click()
Dim a(), n%, i%, j%, k%
n = InputBox("请输入控制正方形图案层数的可变数")
ReDim a(n, n)
For k = 1 To (n + 1) \ 2
For i = k To n - k + 1
For j = k To n - k + 1
a(i, j) = k
Next j
Next i
Next k
For i = 1 To n
For j = 1 To n
Print Tab(j * 3); a(i, j);
Next j
Next
End Sub
相关思考练习题：
题1：什么是VB程序设计？
点拨：VB 程序设计是Visual Basic编程语言，编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁，计算机编程语言也有很多。 目前较为广泛使用的语言有“C++”、“Pascal”、“Basic”等。在众多的计算机编程语言中，以BASIC语言...
题2：vb应用程序除了以解释方式进行,还可以以什么方式进行
点拨：vb应用程序除了以解释方式进行，还可以编译成本机代码，在计算机的系统下直接运行。 将工程编译成本机代码 如果拥有 Visual Basic 的专业版或企业版，既可以将代码编译成标准的 Visual Basic 伪代码格式，也可以编译成本机代码格式。本机代码编...
题3：怎么用vb做一个简单的程序
点拨：加入标签Label1，Caption设置为“你好，请输入你的姓名” 加入文本框Text1，用来输入姓名的 加入标签Label2，按照你的要求设置字体属性，autosize属性设成true 分别加入确定，继续，结束按钮 以下是代码： Private Sub Form_Load() Me.结束.Visibl...
题4：VB是一种面向（）的可视化程序设计语言，采取了（...
点拨：VB是一种面向（对象）的可视化程序设计语言，采取了（事件驱动）的编程机制。VB，即Visual Basic，是一款由微软开发的包含协助开发环境的事件驱动编程语言。 Visual Basic 具有“面向对象”特性。这种“面向对象”的编程方法和传统的全用代码编制程...
题5：VB程序中怎么求阶乘？
点拨：Dim n As Integer Private Sub Command1_Click() Dim i, t As Long t = 1 For i = 1 To n t = t * i Next i Text1.Text = t End Sub Private Sub Option1_Click() n = 10 End Sub Private Sub Option2_Click() n = 11 End Sub Private Sub Optio...