本文目录
- VB编程题目..
- vb 编程问题求详解谢谢
- VB编程题已知数列:f(1)=f(2)=1,f(3)=0,f(n)=f(n-1)-2f(n-2)+f(n-3)(n>2) 详细如图 求解
- 求教一道VB编程题
- 求vB程序设计复习题答案
- 这道VB编程题目的答案是什么1．下面的程序段运行后，显示的结果是 ______ Dim x% if X Then MsgBox(x)
- vb题目 望懂的人写下答案 感激不敬！
- 求两个VB编程题的解答
- VB编程题目求解
- VB编程题目
VB编程题目..
第1题：
X=InputBox(请输入X的值)
If X 》= 0 Then
Y = (1 + 4 * X) / 5
Else
Y = sin(2 * X - 3) / 7
End If
Print Y
第2题：
Private Sub Command1_Click()
Dim a, b, c, V, f As Integer
a = val(Text1.Text)
b = val(Text2.Text)
c = val(Text3.Text)
V = a*b*c
f = 2*(a*b+a*c+b*c)
Text4.Text = V
Text5.Text = f
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
第3题：
Dim iArray(10) As Integer
Dim ExchangeIndex As Long
Dim Exchange As Long
Randomize
For i = 0 To 9
iArray(i) = Int((99 - 10 + 1) * Rnd + 10)
Next
For j = 1 To 10
For ExchangeIndex = 0 To 10 - j
If iArray(ExchangeIndex) 》 iArray(ExchangeIndex + 1) Then
Exchange = iArray(ExchangeIndex)
iArray(ExchangeIndex) = iArray(ExchangeIndex + 1)
iArray(ExchangeIndex + 1) = Exchange
End If
Next
Next
Print iArray(9)
vb 编程问题求详解谢谢
答案：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编程题已知数列:f(1)=f(2)=1,f(3)=0,f(n)=f(n-1)-2f(n-2)+f(n-3)(n>2) 详细如图 求解
f’(x)=3x2-3ax 令f’(x)=0 解得:x=0和x=a.
分别求得:f(0)=b,f(1)=1-3/2a+b,f(a)=b-1/2a3,f(-1)=-1-3/2a+b.
可知 :f(0)》f(a) (因为a》1)
所以 :f(0)为最大值，f(-1)为最小值。
即f(0)=b=1,f(-1)=-1-3/2a+b=-2 解得 a=4/3
所以 :f(x)=x3-2x2+1
当m＞2/3时，函数g(x)无零点；
当m=2/3时，函数g(x)有且只有一个零点；
当0＜m＜2/3时，函数g(x)有两个零点；
当m≤0时，函数g(x)有且只有一个零点；
综上：
当m＞2/3时，函数g(x)无零点；
当m=2/3或m≤0时，函数g(x)有且只有一个零点；
当0＜m＜2/3时，函数g(x)有两个零点；
(3解析：∵对任意b＞a＞0，[f(b)-f(a)]/(b-a)《1恒成立，
等价于f(b)-b＜f(a)-a恒成立；
设h(x)=f(x)-x=lnx+m/x-x(x＞0)，
∴h(x)在(0,+∞)上单调递减；
∵h′(x)=1/x-m/x^2-1≤0在(0,+∞)上恒成立，
∴m≥-x^2+x=-(x-1/2)^2+1/4(x＞0)，
∴m≥1/4；
对于m=1/4，h′(x)=0仅在x=1/2时成立；
∴m的取值范围是[1/4,+∞)．
求教一道VB编程题
i既然是循环变量，那么它自身也会递增的啊，比如第1次是0，第2次就是0+1+3=4，第3次是4+1+3=8
你也可以这样想：假如没有i=i+3这一行，则i的值是按0,1,2,3,4,5,6....这样变化的，加入i=i+3后，就是在原来+1的基础上再+3，实际上就相当于+4了！
求vB程序设计复习题答案
一、选择题
1、在Visual Basic6.0中规定工程文件的扩展名是（A）。
（A）vbp （B）for （C）frm （D）bas
2、在Visual Basic中,以下选项中表示单击事件的是（B）。
（A）KeyUp （B）Click （C）Activate （D）Load
3、下述可以输入数据的是（D）。
（A）Print （B）Msgbox （C）Clear （D）InputBox
4、图片加载语句Picture1.Picture=Picture(“d:\x\123.bmp”) 不能加载图片，其中错误的地方是（D）。
（A) Picture1 （B).Picture （C) =Picture （D) (“d:\x\123.bmp”)
5、如果要处理3.1415类数据，使用的变量类型应该是（A）。
（A） Single （B） Long （C） Integer （D） String
6、Len(“People”)的值是（A）。
（A）6 （B） 7 （C）8 （D） 9
7、语句Dim x As Integer作用是:将x定义为（B）变量。
（A）单精度型 （B）整型 （C） 布尔型 （D）字符型
8、在Select判断结构中，下面的表述中不正确的是（D。
（A）Case 1 （B）Case a 》 5 （C）Case 3 To 6 （D) Case is 《10
9、下列关于Exit For 的说法，正确的是（B）。
（A）它可以退出任何类型的循环 （B）一个循环只能有一个Exit For
（C）每个循环必须有Exit For （D）Exit For本身是无条件退出循环
10. 当拖动滚动条中的滚动块时，将触发滚动条的事件是（C）。
（A) Move （B) SetFocus （C) Scroll （D) Change
二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程，）
三、程序阅读题
1、阅读下列程序段
Option Explicit
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
str1 = “ABCDEFG“
MySub str1, str2
Print str2
End Sub
Private Sub MySub(ByVal a As String, b As String)
Dim c As String
Dim i As Integer
For i = Len(a) To 1 Step -1
c = c+ Mid(a, i, 1)
Next
b= c
End Sub
程序运行后，“print”语句的输出结果是___ _。
四、编写程序
1、利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。
2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
答案：
一.4.应选c,picture改为Load.Picture
三.GFEDCBA
四.1. If fz_0.Text = ““ Then
MsgBox(“请输入!“)
Exit Sub
End If
s = fz_0.Text
n = CInt(s)’此题输入n为10即可
For i = 0 To n
MsgBox(“请输入第“ & Str(i + 1) & “个数字“)
ar(i) = Val(InputBox(“请输入“)) ’将输入的数据转换为数值型
Print(ar(i))
Next
Print(“排序后“)
’排序
For i = 1 To n - 1
intmin = i ’对第i遍排序，初始假定第i个元素最小
For j = i + 1 To n ’找出最小的元素序号
If ar(j) 《 ar(intmin) Then intmin = j
Next j
’将找出的最小元素与第i个元素交换
sngt = ar(i)
ar(i) = ar(intmin)
ar(intmin) = sngt
Next i
’打印输出
For i = 1 To n
Print(ar(i)) ’不换行输出
Next i
’输出后保存就可以了()
四.2. Dim i As Integer, j As Integer
For i = 100 To 200
If i Mod 3 = 0 Then
If j = 0 Then
j = i
Else
j = j + i
End If
End If
Next
MsgBox(j)
这道VB编程题目的答案是什么1．下面的程序段运行后，显示的结果是 ______ Dim x% if X Then MsgBox(x)
选( A ) x=0
x+1=1
Dim x%是用类型说明符声明变量的方式
%是integer的类型说明符
是dim x as integer 的简化写法
x初始化时未赋值情况下默认是0
所以x=0 msgbox(x+1)=1
常用类型说明符
% integer
& long
! single
# Double
$ string
@ currency
vb题目 望懂的人写下答案 感激不敬！
一、判断题(本大题共10小题，每小题2分,共20分，答案用A表示正确，B表示错误)
1.A 2.A 3.B 4.A 5.A 6.B 7.B 8.B 9.B 10.B
二、选择题(本大题共10小题，每小题2分,共20分)
1.下列表示条件“性别（Sex）为男、职称（Duty）为副教授以上、年龄（Age）小于40岁”的VB逻辑表达式中，不正确的是( A )
2.下列表达式中，与其他3个表达式运算结果不相同的是( B )
3.设a = 2， b = 0，则语句 Print (a = 2) And (b = -2) 的输出结果是( B )
4.下面程序片段运行后，显示的结果是( C )
5.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为( A )
6.下列关于For...Next 语句的说法正确的是( D )
7.改变控件在窗体中的左右位置应修改的控件属性是( B )
8.在VB中，如果要创建“年级”和“班级”两组单选按钮，具体的做法是( C )
9.下列关于计时器控件的说法中错误的是( D )
10.若要将窗体从内存中卸载出去，其实现的方法是( D )
求两个VB编程题的解答
’第一个题是：验证哥德巴赫猜想：“任何一个大于6的偶数，均可以表示为两个素数之和”，从键盘输入一个大于6的偶数后，打印出所有的分解结果。
Option Explicit
Dim S() As Long ’小于输入数T的所有素数
Dim N As Long ’数组S的上界，数组S下界为1
Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim T As Long ’输入的数
Dim Z As Boolean
Dim M As Long ’S数组中要用到的素数上限
T = Val(InputBox(“验证哥德巴赫猜想，请输入一个大于6的整数。“, ““))
If T 《= 6 Or T Mod 2 《》 0 Then
MsgBox “输入的整数不符合要求。“, , ““
Exit Sub
End If
If N = 0 Then
N = 3
ReDim S(1 To 3)
S(1) = 2
S(2) = 3
S(3) = 5
End If
If T 》 S(N) Then
For i = S(N) + 1 To T - 1
k = Int(Sqr(i))
Z = True
For j = 1 To N
If S(j) 》 k Then Exit For
If i Mod S(j) = 0 Then
Z = False
Exit For
End If
Next j
If Z Then
N = N + 1
ReDim Preserve S(1 To N)
S(N) = i
End If
Next i
M = N
Else
For i = 1 To N
If S(i) 》 T Then
M = N - 1
Exit For
End If
Next i
End If
Cls
For i = 1 To M
For j = 1 To M
If S(i) + S(j) = T Then
If S(i) 》 S(j) Then Exit Sub ’中断后面一半的输出，因为后面一半只不过是把前一半输出的两个数前后对调
Print CStr(T) & “ = “ & CStr(S(i)) & “ + “ & CStr(S(j))
End If
Next j
Next i
End Sub
’第二个题是：程序运行时，首先随机产生30个100-3000之间的任意年份，并显示在List1中，单击判断按钮时，选出的是闰年年份，显示在list2中，单击排序按钮时，将选出的闰年的年份值按从小到大的顺序排列，并重新显示在list2中。
’说明：判断某一年是否是闰年有两个条件：1、能被4整除但不能被100整除。2、既能被4整除又能被100整除。
Option Explicit
Dim A(1 To 30) As Long
Dim B(1 To 30) As Long
Dim C(1 To 30) As Long
Dim BN As Long, CN As Long
Private Sub Command1_Click() ’判断
Dim i As Long
BN = 0
List2.Clear
For i = 1 To 30
’这是按题目要求进行的判断，实际上这个关于闫年的判断条件是不正确的（能被100整除则必能被4整除），第2个判断条件应该是能被400整除才对，这里按题目的写。
If (A(i) Mod 4 = 0 And A(i) Mod 100 《》 0) Or (A(i) Mod 4 = 0 And A(i) Mod 100 = 0) Then
BN = BN + 1
B(BN) = A(i)
List2.AddItem CStr(A(i))
End If
Next i
End Sub
Private Sub Command2_Click() ’排序
Dim i As Long, j As Long, k As Long
CN = BN
For i = 1 To CN
C(i) = B(i)
Next i
For i = 1 To CN - 1
For j = i + 1 To CN
If C(i) 》 C(j) Then
k = C(i)
C(i) = C(j)
C(j) = k
End If
Next j
Next i
List2.Clear
For i = 1 To CN
List2.AddItem CStr(C(i))
Next i
End Sub
Private Sub Form_Load()
Dim i As Long
List1.Clear
For i = 1 To 30
Randomize
A(i) = Int((3000 - 100 + 1) * Rnd + 100)
List1.AddItem CStr(A(i))
Next i
End Sub
VB编程题目求解
该工程文件中有两个窗体form1、form2，要求将form2设为启动窗体。运行时，单击form2上的“显示”按钮，则显示出form1窗体，单击form1的“隐藏”按钮，则form1窗体消失。
form2的“显示”按钮代码：
form1.Show
单击form1的“隐藏”按钮，则form1窗体消失。代码：
form1.hide
以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。
Dim a As Long ’长整型变量
Dim i, j, k
i = 1
j = 1
a = 0
Text1 = ““
If Option1.Value = True Then ’30
For k = 3 To 30
a = i + j
i = j
j = a
Next k
Text1 = ““ & a
Exit Sub
End If
If Option1.Value = 1 Then ’33
For k = 3 To 33
a = i + j
i = j
j = a
Next k
Text1 = ““ & a
Exit Sub
End If
If Option1.Value = 1 Then ’35
For k = 3 To 35
a = i + j
i = j
j = a
Next k
Text1 = ““ & a
Exit Sub
End If
VB编程题目
窗体上添加2个文本框和1个按钮，文本框用来显示2个同学名字
Private
Sub
Command1_Click()
’交换名字
Dim
s
As
String
s
=
Text1.Text
Text1.Text
=
Text2.Text
Text2.Text
=
s
End
Sub
