概括：这道题是姚底琳同学的课后练习题，主要是关于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

Print

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...

union

votes