高中vb编程例题讲解,vb编程 求帮助。最好详细讲解。
高中vb编程例题讲解,vb编程 求帮助。最好详细讲解。详细介绍
本文目录一览： 高中会考VB程序中的题~！要详细的解答过程。
1.在VB程序中有以下程序段，语句Print
"VB"的执行次数是
For
i=1
To
3
Step
2
‘step即步长，循环变量的增量，步长为1，可省略不写
Print
"VB"
Next
i
答2次
for循环，
首先把初值1赋给循环变量i，接着检查“循环变量”的值是否大于终值3，1<3，执行print打印“VB”一次，然后next
i，把循环变量的值1加上步长2，赋值给i，即i=3，
再判断3是否大于终值3，此处为否，继续print打印“VB”一次，然后next
i，把循环变量的值3加上步长2，赋值给i，即i=5，再判断5是否大于终值3，此处为是，则停止执行循环体，跳出循环。故打印2次。
2.要在窗体上仅显示文字，选用控件最合适的是
label（标签）
A、Label
标签只能显示文字，故符合问题要求。
B、TextBox
文本框可以显示文字，编辑文字，输入文字。
C、Commandbutton
命令按钮通常用来在单击时执行指定的操作。
D、Image图像框图形控件之一，另一个叫图片框（picture）都可以装入多种格式的图形文件，区别是图像框不能作为父控件，而且不能通过print方法接收文本。
3.表达式Val("12") Len("2b")的值是
14
val
把字符串转换成数值
Val("12")=12
LEN
返回文本字符串中的字符数
Len("2b")=2（两个字符）
1.在VB程序中有以下程序段，语句Print "VB"的执行次数是
For i=1 To 3 Step 2 ‘step即步长，循环变量的增量，步长为1，可省略不写
Print "VB"
Next i
答2次
for循环，
首先把初值1赋给循环变量i，接着检查“循环变量”的值是否大于终值3，1<3，执行print打印“VB”一次，然后next i，把循环变量的值1加上步长2，赋值给i，即i=3，
再判断3是否大于终值3，此处为否，继续print打印“VB”一次，然后next i，把循环变量的值3加上步长2，赋值给i，即i=5，再判断5是否大于终值3，此处为是，则停止执行循环体，跳出循环。故打印2次。
2.要在窗体上仅显示文字，选用控件最合适的是 label（标签）
A、Label 标签只能显示文字，故符合问题要求。
B、TextBox 文本框可以显示文字，编辑文字，输入文字。
C、Commandbutton 命令按钮通常用来在单击时执行指定的操作。
D、Image图像框图形控件之一，另一个叫图片框（picture）都可以装入多种格式的图形文件，区别是图像框不能作为父控件，而且不能通过print方法接收文本。
3.表达式Val("12") Len("2b")的值是 14
val 把字符串转换成数值 Val("12")=12
LEN 返回文本字符串中的字符数 Len("2b")=2（两个字符）
vb程序题，高中会考的
教你分析：
外循环 i = 1 to n-q 内循环 j = i 1 to n
内循环又是 if d（j）< d(k) 所以判断出这句是比较相邻的2个数的大小
if d（j）< d(k) then k=j 如果现在i=1 的话 则是比较 d（2）〈 d（1） 这句的意思是 如果后面一个数比前一个数小 则改变k的值。 在结合 下面一句 if i〈〉k then kt =d（i）：d（i）=d（k）：d（k）=kt 就是如果k的值发生变化 则交换这2个数 这样就会把最小的那个数依次存放，也叫冒泡输出法。故选A 另外如果你看到这种句式kt =d（i）：d（i）=d（k）：d（k）=kt 就是交换2个数的意思。望采纳！
vb编程 求帮助。最好详细讲解。
错误的答案所以等于0
s=1 2 3 4=10
0秒。没有时间的意思
Do While K<=3
k = k 1
s = s k
Loop
当K<=3的时候，执行循环，否则结束循环：
第1次：k = 0，满足k<=3，执行循环：
k = k 1 ==> k = 0 1==> k = 1
s = s k ==> s = 0 1==> s = 1
第2次：k = 1，满足k<=3，执行循环：
k = k 1 ==> k = 1 1==> k = 2
s = s k ==> s = 1 2==> s = 3
第3次：k = 2，满足k<=3，执行循环：
k = k 1 ==> k = 2 1==> k = 3
s = s k ==> s = 3 3==> s = 6
第4次：k = 3，满足k<=3，执行循环：
k = k 1 ==> k = 3 1==> k = 4
s = s k ==> s = 6 4==> s = 10
第5次：k = 4，不满足k<=3，结束循环：
所以答案：k = 4，s = 10
高中VB操作题
第一处错误是定义错误，应改为:dim s as double, a as double, h as double
第二处错误是没有在按钮二的单击事件中加入代码，应加上：END
第一处错误是定义错误，应改为：dim i as integer,N as integer,aR as integer,bR as integer,cR as integer
第二处错误是循环参数错误，应改为：for i= 3 to N（因为斐波那契数列前两个月我们已经知道了，分别是1和1，而且已赋值给变量，所以我们要从第三项开始求，所以这里循环从第3个月开始到第N个月）
第三处应该cR的值应该等于前两项之和，所以改为：cR=aR bR
第四处错误加上：Next i
挺辛苦，请采纳！
VB的编程题，急！拜托各位大神了
' 定义变量 currentPopulation 表示目前国内人口总数
Dim currentPopulation As Integer = 13800
' 定义变量 growthRate 表示每年人口增长比例
Dim growthRate As Double = 0.01
' 定义变量 years 表示多少年后，总人口数超过 20 亿
Dim years As Integer
' 计算多少年后，总人口数超过 20 亿
Do Until currentPopulation >= 2000000000
currentPopulation = currentPopulation * (1 growthRate)
years = years 1
Loop
' 输出结果
MsgBox("多少年后，总人口数超过 20 亿: " & years)
由于您提到了使用 VB 编程，因此我将使用 Visual Basic 来回答您的问题。
首先，我们需要声明一个变量来存储人口总数，并将其初始值设为 15 亿。接下来，我们需要声明一个变量来存储每年人口增长的比例，并将其初始值设为 1%。
在 Visual Basic 中，我们可以使用如下代码来完成以上操作：
Copy codeDim population As Double = 1500000000Dim growthRate As Double = 0.01
接下来，我们需要使用一个循环，每次循环计算一年后的人口总数，并判断是否已经超过 20 亿。如果超过了，则通过 Msgbox 输出超过 20 亿所需的年数。
在 Visual Basic 中，我们可以使用如下代码来完成以上操作：
Copy codeDim numYears As Integer = 0Do
numYears = numYears 1
population = population population * growthRateLoop Until population > 2000000000MsgBox("人口总数超过 20 亿所需的年数：" & numYears)
上面的代码中，我们声明了一个变量 numYears 用来存储超过 20 亿所需的年数。每次循环，我们都将 numYears 加 1，然后计算一年后的人口总数。如果人口总数超过了 20 亿，则通过 Msgbox 输出超过 20 亿所需的年数，然后退出循环。
VB的几道编程题，麻烦帮我解答一下
1-12：
Private Sub Form_Click()
Text1.Move 0, 0
End Sub
Private Sub Text1_Change()
Text1.Move Me.ScaleWidth - Text1.Width, 0
End Sub
1-13
Private Sub C1_Click()
Text1.Text = LCase(Text1.Text)
Text2.Text = UCase(Text1.Text)
End Sub
1-14
Private Sub Command1_Click()
Text1.Visible = False
Label1.Caption = Text1.Text
End Sub
1-15
设置文本框属性：
.MultiLine = True
.ScrollBars = 2
.Text = "程序设计"
窗体 Caption="设置文本框属性"
End Sub
1-16:
设置属性：text1.PasswordChar="*"
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
1-17
Private Sub C1_Click()
Text1.Text = "等级考试"
End Sub
Private Sub C2_Click()
Text2.width=text2.width*2
text2.height=text2.height*2
text2.fontsize=text2.fontsize*3
End Sub
练习1-12:
Private Sub Form_Click()
Text1.Move 0, 0
End Sub
Private Sub Text1_Change()
Text1.Move Me.Width - Text1.Width, 0
End Sub
练习1-13:
Private Sub C1_Click()
Text1.Text = LCase(Text1.Text)
Text2.Text = UCase(Text1.Text)
End Sub
练习1-14:
Private Sub Command1_Click()
If Text1.Text <> "计算机等级考试" Then Exit Sub
Text1.Visible = False
Label1.Caption = Text1.Text
Label1.Visible = True
End Sub
练习1-15:
1)把Text1的MultiLine属性设为 True
2)把Text1的ScroolBars属性设为 2 - Vertical
3)把Text1的Text属性设为 程序设计
4)点Text1的Font属性右面的小按钮,在出现的对话框中设置 黑体 和 三号字体
5)把Form1的Caption属性设为 设置文本框属性
练习1-16:
Private Sub Form_Load()
Text1.PasswordChar = "*"
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
练习1-17:
Private Sub C1_Click()
Text1.Text = "等级考试"
End Sub
Private Sub C2_Click()
T1.Width = T1.Width * 2
T1.Height = T1.Height * 2
T1.FontSize = T1.FontSize * 3
End Sub
练习1-18:
在Form1上面绘制一个Shape1,然后把他的Shape属性设为 3 - Circle ,接着把Shape1的Height和Width属性都设为1500,然后把窗体的Caption属性设为 圆 ,最后把窗体的MinButton属性和MaxButton属性都设为False.
希望我的回答能帮助你解决问题
vb程序设计题，请高手解答
注释步骤嘛，因为太累了，所以简写，估计能看个差不多
在窗体上放一个名为 text1 的TextBox控件，属性改为多行和带滚动条，再放一个按钮，按钮的响应程序如下：
Private Sub Command1_Click()
Const n = 30
Const m = 20
Dim a(n) As Integer, b(m) As Integer, c(m n) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To n
a(i) = 3 * i
Next i
For j = 1 To m
b(j) = 4 * j
Next j
i = n
j = m
p = 0 ' a数组取净标志
q = 0 ' b
For k = 1 To m n
If a(i) >= b(j) And p = 0 Then ' a大取a
c(k) = a(i)
If i > 0 Then
i = i - 1
Else
p = 1
End If
ElseIf b(j) > a(i) And q = 0 Then ' b大取b
c(k) = b(j)
If j > 0 Then
j = j - 1
Else
q = 1
End If
End If
If p = 1 Then ' a用完取b
c(k) = b(j)
j = j - 1
End If
If q = 1 Then ' b用完取a
c(k) = a(i)
i = i - 1
End If
Next k
' 输出至 text1
Dim ts As String
For i = 1 To m n
ts = ts "i=" Str(i) ", c(i) = " Str(c(i)) Chr(13) Chr(10)
Next i
Text1.Text = ts
End Sub
运行结果如下：
i= 1, c(i) = 90
i= 2, c(i) = 87
i= 3, c(i) = 84
i= 4, c(i) = 81
i= 5, c(i) = 80
i= 6, c(i) = 78
i= 7, c(i) = 76
i= 8, c(i) = 75
i= 9, c(i) = 72
i= 10, c(i) = 72
i= 11, c(i) = 69
i= 12, c(i) = 68
i= 13, c(i) = 66
i= 14, c(i) = 64
i= 15, c(i) = 63
i= 16, c(i) = 60
i= 17, c(i) = 60
i= 18, c(i) = 57
i= 19, c(i) = 56
i= 20, c(i) = 54
i= 21, c(i) = 52
i= 22, c(i) = 51
i= 23, c(i) = 48
i= 24, c(i) = 48
i= 25, c(i) = 45
i= 26, c(i) = 44
i= 27, c(i) = 42
i= 28, c(i) = 40
i= 29, c(i) = 39
i= 30, c(i) = 36
i= 31, c(i) = 36
i= 32, c(i) = 33
i= 33, c(i) = 32
i= 34, c(i) = 30
i= 35, c(i) = 28
i= 36, c(i) = 27
i= 37, c(i) = 24
i= 38, c(i) = 24
i= 39, c(i) = 21
i= 40, c(i) = 20
i= 41, c(i) = 18
i= 42, c(i) = 16
i= 43, c(i) = 15
i= 44, c(i) = 12
i= 45, c(i) = 12
i= 46, c(i) = 9
i= 47, c(i) = 8
i= 48, c(i) = 6
i= 49, c(i) = 4
i= 50, c(i) = 3
Private Sub Command1_Click()
Dim A() As Integer, N As Integer
Dim B() As Integer, M As Integer
Dim C() As Integer, NC As Integer
Dim I As Integer, J As Integer, TM As Integer
'……前面的关于A B数组什么来头我不写了 你知道的
'定义数组C大小
NC = M N
rdim C(NC)
'把数组A装入C
For I = 1 To N
C(I) = A(I)
Next I
'把数组B装入C
For I = 1 To M
C(N I) = B(I)
Next I
'对C进行从大到小排序
For I = 1 To NC - 1
For J = I 1 To NC
If C(I) < C(J) Then
TM = C(I)
C(I) = C(J)
C(J) = TM
End If
Next J
Next I
End Sub
Option Explicit
Dim a(4), b(7), c(12)
Private Sub Command1_Click()
Dim i%, j%, k%, m%, n%
i = LBound(a): j = LBound(b): k = LBound(c)
m = UBound(a): n = UBound(b)
While i <= m And j <= n
If a(i) > b(j) Then
c(k) = a(i): i = i 1: k = k 1
Else
c(k) = b(j): j = j 1: k = k 1
End If
Wend
While k <= m n - i - j 1
If i > m Then
c(k) = b(j): j = j 1: k = k 1
Else
c(k) = a(i): i = i 1: k = k 1
End If
Wend
End Sub
理解错误了。。
Vb编程实现两个有序数组的合并，即二路归并
数组A和数组B分别记录有一些数据，这两个数组上的数据都已经由小到大按顺序排列好。请用vb编写一个程序把这此数据合并到同一个数组之中，并使得合并后的数据全部按由小到大排列。
这就是所谓的“二路归并”。在编写这个程序时先进行说明一下，首先，大量数据的输入用inputbox（）函数的方法显得很烦琐，特别在调试阶段，每次运行时都要输入一大堆数据。因此采用了ARRAY函数的输入方法。
为了使大量的数据在输出时看得清楚，我们在运行窗体上设置了一个文本框，并把文本框的属性MultiLine设为True，Scorllbars设为2（带竖直滚动条）。
Vb程序代码如下：
Private Sub Form_Click()
Dim a '定义了一个可变类型的数组
a = Array(1, 3, 5, 7, 9, 11)
Dim b
b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)
Dim c(1000)
pa = 0: pb = 0: pc = 0
ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBOUND()和LBOUND()得到（若没说明下标的下界一般是0）
eb = UBound(b)
Do Until pa > ea And pb > eb
If pa > ea Then ta = b(eb) 1 Else ta = a(pa)
If pb > eb Then tb = a(ea) 1 Else tb = b(pb)
If ta < tb Then
c(pc) = ta
pc = pc 1
If pa <= ea Then pa = pa 1
Else
c(pc) = tb
pc = pc 1
If pb <= eb Then pb = pb 1
End If
Loop
Print ea, eb, pc
Text1.Text = "数组A的元素：" & vbCrLf
For i = 0 To ea
Text1.Text = Text1.Text & a(i) & " "
Next i
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "数组A的元素：" & vbCrLf
For i = 0 To eb
Text1.Text = Text1.Text & b(i) & " "
Next i
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "合并后B的元素：" & vbCrLf
For i = 0 To pc
Text1.Text = Text1.Text & c(i) & " "
Next i
End Sub
当然，你可以把这些数据全部复制到一个数组之中再使用一个排序算法来处理一次，但这样的话，原来两个数组已经分别排好的顺序就没有利用上，能否利用原来已经排好顺序的特点使得算法高效一些？
vb 编程问题求详解谢谢
这个双循环结构，外层循环运行3次，内层循环运行5次，总运行次数为3×5=15次，但内循环体中还有一个if结构是说当j除以3的余数不为0的时候（也就是说j=1,2,4,5时）a要多加一次1，所以a=a 1实际运行的次数为3×5 3×4=15 12=27，也就是说窗体的输出结果为27
答案：27。
看来这是一道试卷上的题目，所以没有环境无法跑出结果。我们在VBA内测试一下：
循环
观察循环，2层：
外层，1，2，3依次循环
内层，1,2,3,4,5依次循环
判断条件，内层循环中，两次变量 a 自加 1。分别是：
循环结束
对3取模，余数不为0的条件下
做一个口算吧，3 * 5 * ( 1 1) = 30。
其中 1 1 就是那两次自加1。然后，1 - 5之间，整除3的只有“3”本身，一共是 3 次（外层循环）。
所以，30 - 3 = 27。
一般我们会把这些计算任务交给PC，但是对于初学者，理解这些“循环-判断-累加”的程序结构，还是很有益处的。
我是@程序员小助手，持续分享编程知识，欢迎关注。
vb中如何编程这个题 猴子吃桃（一天吃掉一半多一个，第二天吃掉盛下的
Private Sub Command1_Click()
Dim a, s, d, k, i
a = 1
For i = 1 To 6
a = (a 1) * 2
Next
Print a
最后等于190个
Private Sub Command1_Click()
s = 1
For i = 7 To 1 Step -1
s = 2 * s 1
Next i
Print "桃子的数量="; s
End Sub
VB的一道编程题....
chr(70)得到的是ASCII码为70的字符
str(0)得到的是"空格0"的字符串
len()是取得字符串的长度
len(chr(70) str(0))的长度就是chr(70)一个字符加str(0)2个字符，=3
chr(67)得到的是ASCII码为67的字符，Asc()得到某个字符的ASCII码,结果还是等于67，
全部结果算下来，这道题的答案就是 70
首先，如果你选择的文本不是空字符串(有单词)，那么进行for循环，c
=
Mid(Text1.SelText,
i,
1)这个函数是取得你所选择文本的从第i个算起的第1个字符，就是第i个字符，配合下面if语句结构，If
c
<>
"
"
Then
t
=
t
c
else......，如果这个第i字符不是空字符串，那么字符串累积，如果第i字符是空字符串，则累积结束。直观表现就是选出你一段话中的一个单词，然后和the进行比对（因为英文单词和单词之间是空字符串相隔的）。
打个比方如果你选的一段话为qwe
the
twety，变量i在for循环中从1到13（字符串长度：11个字母加上2个空格间隔）i=1时c=Mid(qwe
the
twety,
i,
1)=q，t此时为空字符串，执行t
=
t
c后t=q，i=2时c=Mid(qwe
the
twety,
i,
1)=w，执行t
=
t
c后t=qw，i=3时c=Mid(qwe
the
twety,
i,
1)=e，执行t
=
t
c后t=qwe，i=4时c=Mid(qwe
the
twety,
i,
1)=
(空字符串)，进入if分支语句，LCase$(t)
=qwe（如果此时c为空字符串，LCase$(c)=（空字符串），），不是the，不执行m=m 1，m=0
进行比较，不是the，m无变化，i=5、6、7、8，此时LCase$(t)
=the（i=8时c仍为空字符串），执行m=m 1。
综上所述，如果用
LCase$(c)="the"运行，c此时为空字符串，LCase$(c)为空字符串，LCase$(c)="the"这个条件达不到，不能执行m=m 1，所以m一直是0
望采纳