关于VB的题~~求人解答~~

关于VB的程序题，跪求解答~

1、对于每个i，从1到i分别执行1次共计i次，内循环完成后再执行1次，共计i+1次。所以，i=1时，执行1+1次，i=2时执行2+1次，i=3时执行3+1次，以此类推，i=10时执行10+1次，2+3+4+……+11=65次
2、i=1时，内循环执行 s=0+1×1=1，然后执行s=1+1×1=2；
i=2时，内循环先后执行s=2+1×1=3，s=3+2×2=7，然后s=7+2×2=11；
i=3时，内循环先后执行s=11+1×1=12，s=12+2×2=16，i=16+3×3=25，然后s=25+3×3=34；
依次类推，最后结果为：s=1595
将上面的代码稍微修改一下，运行就可以直接看到答案：
s = 0
n = 0
For i = 1 To 10
For j = 1 To i
Debug.Print "s= " & s & "+" & j & "*" & j,
s = s + j * j
n = n + 1
Next j
Debug.Print "s= " & s & "+" & i & "*" & i
s = s + i * i
n = n + 1
Next i
Debug.Print "共执行了 " & n & " 次"
Debug.Print "最后结果：s= " & s
执行结果如下：
s= 0+1*1 s= 1+1*1
s= 2+1*1 s= 3+2*2 s= 7+2*2
s= 11+1*1 s= 12+2*2 s= 16+3*3 s= 25+3*3
s= 34+1*1 s= 35+2*2 s= 39+3*3 s= 48+4*4 s= 64+4*4
s= 80+1*1 s= 81+2*2 s= 85+3*3 s= 94+4*4 s= 110+5*5 s= 135+5*5
s= 160+1*1 s= 161+2*2 s= 165+3*3 s= 174+4*4 s= 190+5*5 s= 215+6*6 s= 251+6*6
s= 287+1*1 s= 288+2*2 s= 292+3*3 s= 301+4*4 s= 317+5*5 s= 342+6*6 s= 378+7*7 s= 427+7*7
s= 476+1*1 s= 477+2*2 s= 481+3*3 s= 490+4*4 s= 506+5*5 s= 531+6*6 s= 567+7*7 s= 616+8*8 s= 680+8*8
s= 744+1*1 s= 745+2*2 s= 749+3*3 s= 758+4*4 s= 774+5*5 s= 799+6*6 s= 835+7*7 s= 884+8*8 s= 948+9*9 s= 1029+9*9
s= 1110+1*1 s= 1111+2*2 s= 1115+3*3 s= 1124+4*4 s= 1140+5*5 s= 1165+6*6 s= 1201+7*7 s= 1250+8*8 s= 1314+9*9 s= 1395+10*10 s= 1495+10*10
共执行了 65 次
最后结果：s= 1595

病情分析：
您好：您说的症状考虑是由于外阴炎或者阴道炎引起的瘙痒症状，其常见症状为外阴皮肤瘙痒、烧灼感和疼痛，在活动、性交和排尿后加重，白带异常等症状。
指导意见：
建议您及时去医院妇科就诊，可以考虑使用苦参洗液治疗，保持外阴清洁干燥，每天清洗外阴更换内裤，注意好个人卫生，有明显炎症可以服用消炎药物治疗。

不排除是感染了阴道炎的症状，建议您积极到医院做白带常规检查。阴道炎 有霉菌性、滴虫性和杂菌性阴道炎等，应该确诊后再对症治疗效果好。治疗期间暂停性生活，饮食忌辛辣。平时每天换内裤 ,并将之与毛巾和盆一起洗烫

你好，从你的描述来看,可能是有阴道炎的可能，建议去医院检查白带.待查明原因后，对症治疗.

常见的阴道炎有细菌性阴道病炎,滴虫性阴道炎,念珠菌性阴道炎等。建议你做白带常规检查来确定具体是哪一种阴道炎再对症治疗,

1）基本概念（填空与问答）
1．Vb提供了一种新的数据库访问技术，即ADO技术 ，通过该技术，能方便地访问数据库中的数据。
2．对象的属性是指 。对象的性质
3．在文本框中通过 SelStart属性能获得当前插入点所在的位置。
4．在代码窗口中对窗体的MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 只能在属性窗口设置。
5．为了使一个控件在运行时不可见，应该对该控件的 Visible属性设置为False。
6．表示x既是5的倍数又是10 的倍数的逻辑关系表达式 ( x mod 5 = 0 ) and ( x mod 10 = 0) 。
6．Vb也提供了三种基本结构，三种基本结构是 。顺序，分之，循环
7．下面程序段中，第2条语句执行 4 次，第3条语句执行 12次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．数组声明语句Dim a(3,-2to2,5)中的数组a包含了元素的个数是 120。
9．形参是在定义过程时的一种形式上虚设的参数，只代表了该过程参数的 个数 、 类型 、 位置 、形参的名字并不重要，只表示在该过程中进行某种运算或处理。
10．在同一模块、不同过程声明的相同变量名，两者之间 没有任何关系 。
11．简述建立一个完整应用程序的过程。1建立界面2设置对象的属性3编写有关的代码程序4运行应用程序
12． Visual Basic提供了那三种对数据文件访问方式？顺序访问方式、随机访问方式、二进制访问方式
13．使用MsgBox函数和MsgBox过程的区别是什么？函数有返回值，过程没有。过程中参数不带括号，函数带括号。
14． 说明下面程序段的运行过程和结果。
Dim x
If x Then Print x Else Print x+1
1
15．如果语句：Do While … ..Loop构成了死循环，如何解决？IF<满足循环终止的条件> then Exit Do
16．静态数组和动态数组的区别是什么？静态数组声明数组的时候，指定维数，不可以改变；动态数组不声明维数，可以改变，过程中用redim声明。
17. 设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub
Sum=0/1 + 1/2 + 2/3 + 3/4 + 4/5
该程序通过For循环计算一个表达式的值，这个表达式是什么？
18. 设有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) Max = arr1(1)For i = 1 To 8If arr1(i) > Max Then Max=arr1(i) Next iPrint "最大值是: "; MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
二、编程题
1．在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption　　 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。
Private Sub Combo1 keypress(KeyAscii is integer)
If KeyAscii=13 then
For I=0 to Combo1.listcount-1
If Combo1.text=Combo1.list then
Label2.caption=”输入项已在组合框中”
Exit Sub
End if
Label2.caption=” 已成功添加输入项”
Combo1.AddItem Combo1.text
End if
End Sub
2. 生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_click()
For I=1to 20
X=Int(Ren*200+100)
If x mod 5=0 then
Print X
S=s+x
End If
next I
print “sum=”,s
End Sub

1. ADO (ActiveX Data Object)
2. 对象（窗体，控件）的大小、颜色、方位等一系列外观或内部构造的特征
3. SelStart
4. 只读的
5. Visible属性设置为False
6. (x Mod 5) = 0 And (x Mod 10) = 0
7. 第2条语句执行 4 次，第3条语句执行 12 次
8. 20
9. 个数、类型、位置
10. 两者不表示同一变量，且这两个变量之间没有联系
11.
(1)新建工程
(2)设计用户界面：确定窗体，在窗体中添加控件。
(3)设置对象的属性：窗体和控件的属性在属性窗口设置。
(4)编写有关的代码程序。
(5)调试：若窗体或程序有错，则重复前三步，直到程序完全正确及窗体令人满意为止。
(6)应用程序的集成和管理（存储项目）：把有关项目存储起来，以便以后使用。
(7)运行应用程序
(8)建立可执行文件：脱离VB，而直接在Windows环境下运行。
(9)结束项目。
12. 顺序文件、随机文件、二进制文件
13. msgbox过程中参数不带括号，且没有返回值，msgbox函数有括号，且具有返回值
14. 如果X为Ture,则在窗体上输出X的值,否则输出X+1的值;运行结果是输出 1
15. Exit Do
16. 对于静态数组，一般要声明尽可能大的数目浪费内存空间，而动态数组在运行过程中可以改变大小，节省内存空间，但浪费执行时间。静态数组只能是常量。
17. (0/1 + 1/2 + 2/3 + 3/4 + 4/5)
18.
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max As Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
Max = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then Max = arr1(i)
Next i
Print "最大值是: "; Max
End Sub

程序题 1.
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim I As Long
If KeyAscii = 13 Then

For I = 0 To Me.Combo1.ListCount
If Combo1.Text = Me.Combo1.List(I) Then
Label2.Caption = "输入项已在组合框中"
Exit Sub
End If
Next I

Label2.Caption = "已成功添加输入项"
Combo1.AddItem Combo1.Text
End If

End Sub

程序题2.
Dim I As Integer
Dim tmpNum As Integer
Dim TOTAL As Long

Randomize
For I = 1 To 20
tmpNum = Int(100 * Rnd) + 200
If tmpNum Mod 5 = 0 Then
TOTAL = TOTAL + tmpNum
Print tmpNum
End If
Next

Print "TOTAL:" & TOTAL

1）（填空与问答）
1．Vb提供了一种新的数据库访问技术，即 ，通过该技术，能方便地访问数据库中的数据。
>ADODB
2．对象的属性是指 。
>外部可访问的对象的特性
3．在文本框中通过 属性能获得当前插入点所在的位置。
>SelStart
4．在代码窗口中对窗体的MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 。
5．为了使一个控件在运行时不可见，应该对该控件的 。
>Visible = False
6．表示x既是5的倍数又是10 的倍数的逻辑关系表达式 。
> ( x mod 5 = 0 ) and ( x mod 10 = 0)
6．Vb也提供了三种基本结构，三种基本结构是 。
>顺序，选择，循环
7．下面程序段中，第2条语句执行 4 次，第3条语句执行12 次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．数组声明语句Dim a(3,-2to2,5)中的数组a包含了元素的个数是 75。
9．形参是在定义过程时的一种形式上虚设的参数，只代表了该过程参数的 引用 、 、 、形参的名字并不重要，只表示在该过程中进行某种运算或处理。
10．在同一模块、不同过程声明的相同变量名，两者之间 没有关系。
11．简述建立一个完整应用程序的过程。
>1.需求分析
>2.设计
>3.代码编写
>4.单元测试
>5.用户测试
12． Visual Basic提供了那三种对数据文件访问方式？
>1.Readonly
>2.Appending
>3.Write
13．使用MsgBox函数和MsgBox过程的区别是什么？
>函数有返回值
14． 说明下面程序段的运行过程和结果。
Dim x
If x Then Print x Else Print x+1
>
Print + 1
>Result:1
15．如果语句：Do While …..Loop构成了死循环，如何解决？
检查修正循环条件以及循环变量

16．静态数组和动态数组的区别是什么？
动态数组 的元素个数可以改变

17. 设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是什么？
sum = 1/1 + 1/1 + 1/1 + 1/1 + 1/1 = 5
18. 设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
= arr1(1)
For i = 1 To 8
If arr1(i) > Max Then
Max = arr1(i)
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
二、编程题
1．在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption　　 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then

Dim i As Long
Dim bFound As Boolean
For i = 0 To Me.Combo1.ListCount
If Combo1.Text = Me.Combo1.List(i) Then
bFound = True
Exit For
End If
Next i

If bFound Then
Label2.Caption = "输入项已在组合框中"
Else
Label1.Caption = "已成功添加输入项"
Combo1.AddItem Combo1.Text
End If
End If
End Sub

2. 生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

Me.AutoRedraw = True
Me.Cls

Randomize

Dim i As Long
Dim nNum As Long
Dim nTot As Long

For i = 1 To 20
nNum = Rnd * 100 + 200

If nNum Mod 5 = 0 Then
Print nNum
nTot = nTot + nNum
End If
Next i

Print "Tot:"; nTot

---

清原满族自治县17353315543： 一条关于vb的题目,求具体解答过程 人们说话时所产生的语音信号必须数字化才能由计算机存储和处理.假设语音信号数字化时取样频率为8kHz,量化精度... - ？
巢建盐酸：[选项] A. 960KB B. 480KB C. 120KB D. 60KB

清原满族自治县17353315543： 求教几个关于VB的问题根据条件写一个VB表达式.1.已知直角坐标中任意一个点(x,y),表示该点在第一或第二象限2.X是5或者7的倍数3.将任意一个两位数X... - ？
巢建盐酸：[答案] 1,if(x>0 and y>0) then ＂第一＂ if(x0) then “第二” IF(X

清原满族自治县17353315543： 求强人帮忙解决这几个VB题目,急 - ？
巢建盐酸： '-----------------------第一题--------------------- Private Sub Command1_Click() Dim Sum, Jc As Long For i = 1 To 10 Jc = 1 For j = 1 To i Jc = Jc * j Next Sum = Sum + Jc Next End Sub '-----------------------第二题--------------------- Private Sub Command2_Click(...

清原满族自治县17353315543： VB试题,求高手解答 - ？
巢建盐酸： 速采纳,答题进行中!!!Private Sub Command1_Click()'第一题: 2^1+......(2n)^(2n-1) Dim i As Long, n As Integer Do While True n = InputBox(＂请输入一个整数,数值请小于5:＂) If IsNumeric(n) Then Exit Do Loop Dim Sum As Long For...

清原满族自治县17353315543： 一道简单的VB题,求解释...设有如下程序:x=2for i=1 to 10 step2x=x+1Next运行以上程序后,x的值为()A.26B.27C.38D.57我知道这是一道很简单的题目,... - ？
巢建盐酸：[答案] 题目本身就存在问题: 1、如果题目是: x=2 for i=1 to 10 step 2 x=x+1 Next 则答案应为:7 2、如果题目是: x=2 for i=1 to 10 step 2 x=x+i Next 则答案应为:27

清原满族自治县17353315543： 有一道 VB题望众多高手帮忙解答下...... - ？
巢建盐酸： 返回结果:+123,654.0% 解析:format(expression,＂format＂)的作用是把expression转化为＂format＂的格式,这里“+”在结果前添加“+”;第一个“##”把结果带上千位符;“,”起分隔作用;的二个“,”基本没用,无视(至少我看不出来有什么用,在“0”前面怎么加都没变化,在中间的“0”能充当“0”....);“0.0%”是把结果以百分数的形式显示,并保留一位小数(没有小数补一位).终上所述,1236.54会转化为+123,654.0%输出. 希望对你有帮助~

清原满族自治县17353315543： 急需高手解答VB题目[在线等] - ？
巢建盐酸： Private Sub Form_click()Dim a As Integer, b As Integer, c As IntegerDim s...

清原满族自治县17353315543： 解答vb题目？
巢建盐酸： 按你这样的程序在VB里面运行会出现三个“False”. 如果你是想输出“4.6 5.6 6.6”的话,就要写成 Print X + 1; X + 2; X + 3

清原满族自治县17353315543： 解答VB程序试题 - ？
巢建盐酸： ''1、将输入字符串“abcdef”输出为”fedcba” Private Sub Invert(ByVal xStr As String, yStr As String) Dim tempStr As String Dim I As Integer I = Len(xStr) Do While I >= 1 tempStr = tempStr + Mid(xStr, I, 1) I = I - 1 Loop yStr = tempStr End Sub ...

清原满族自治县17353315543： 求解几道VB选择题(VB初学者)今天复习VB遇到不懂地方,小弟不才,菜鸟一个,望热心人帮帮忙.1:下列可以将变量A 和 B 的值互换的语句是(我选的... - ？
巢建盐酸：[答案] 1,B; AB替换需要另一个变量,c中顺序反了 可以用实际数字试的 2,D; if语句不成立,则x=0 3, D; A,if,then同列不需要end if B,else if 必须换行 C,缺end if