VB题练习题，麻烦各位大神帮帮忙

8 下面程序运行后的结果是（4）

a=Array(1,2,3,4,5)

print a(a(2))

11 下面程序有错的一行（redim a%(1 to 4),i%）

redim a%(1 to 4),i%

for i=1 to 4 step 16 '第A行

a(i)=2i ’第B行

next i ‘第C行

if a(2) then print a(2) '第D行

14 下面程序运行后的输出结果是（）

dim a(3,3),i%,j%

for i=1 to 3

for j=1 to 3

if i+j=4 or i=j then a(i,j)=0 else a(i,j)=1

print a(i,j);

next j

print

next i

0 1 0

1 0 1

0 1 0

16 下面程序运行后的结果（105）

dim a,f%,i%

a=Array(1,"3","5",7)

f=1

for i=LBound(a) to UBound(a)

f=fa(i)

next i

print f

17 下面程序的功能是将一维数组中的6个数逆序存放并输出。完成填空。

dim a, i%,j%,t%

a=array(1,2,3,4,5,6)

i=0:j=5

Do While(_)

t=a(_)

a(_)=a(_)

a(_)=(_)

i=i+1

(_)

loop

for i=0 to 5

print a(i);

next i

Dim a, i%, j%, t%

a = Array(1, 2, 3, 4, 5, 6)

i = 0: j = 5

Do While (i < 3)

t = a(i)

a(i) = a(j)

a(j) = t

i = i + 1

j = j - 1

Loop

For i = 0 To 5

Print a(i);

Next i

你只要在窗口中放一个frame，再在frame中放两个label1和label2。再在frame外面放一个label3，一个command1，一个text1。其他由程序完成，程序如下：

Private Sub Command1_Click()

Dim Sum As String

Dim N As Integer

Dim I As Integer, J As Integer, K As Integer

Dim S As Integer

N = Val(Text1)

For I = 1 To N

If I = 1 And (N Mod 2 = 0) Then K = -1 Else K = 1

S = 0

For J = 1 To I

S = S + K

K = -K

Next

Sum = Sum & S

Next

If Right(Sum, 1) = "1" Then Sum = Sum & "1"

For I = 1 To Len(Sum)

If Mid(Sum, I, 1) = "1" Then Mid(Sum, I, 1) = "3"

Next

Label2Caption = Sum

End Sub

Private Sub Form_Load()

With Form1

Caption = "求和计算"

Width = 7000

Height = 4000

End With

With Frame1

Caption = "求数列前N项和"

Width = 6000

Height = 1000

Top = 500

Left = 500

End With

With Label1

Width = 2500

Height = 500

Caption = "33-333+3333-33333+="

Top = 400

Left = 100

End With

With Label2

Width = Frame1Width - (Label1Left + Label1Width) - 100

Height = Label1Height

Caption = ""

Top = 400

Left = Label1Left + Label1Width

End With

With Text1

Width = 1000

Height = 300

Text = ""

Top = 2500

Left = 4000

End With

With Command1

Caption = "计算"

Width = 1000

Height = 300

Top = 2500

Left = 1000

End With

With Label3

Width = 2000

Height = Label1Height

Caption = "输入N的值，N="

Top = Command1Top

Left = Command1Left + Command1Width + 500

End With

End Sub

已经运行过。

Private Sub Command1_Click()

Dim s As String

s = InputBox("输入圆的半径")

Call mycalc(s)

End Sub

Private Sub mycalc(s As String)

If IsNumeric(s) Then

    Dim PI As Double

    PI = 4  Atn(1)

    Dim R As Integer

    R = CInt(s)

    Dim mystr As String

    mystr = "圆面积 = " & PI  (R ^ 2) & vbCrLf & vbCrLf

    mystr = mystr & "圆周长 = " & PI  R  2 & vbCrLf & vbCrLf

    mystr = mystr & "球体积 = " & PI  (R ^ 3)  4 / 3

    MsgBox mystr

Else

    s = InputBox("输入圆的半径")

    Call mycalc(s)

End If

End Sub

'第一题结束

'第二题

Private Function getNum(num As Integer, i As Integer)

Select Case i

Case 1 '取个位

getNum = CStr(num Mod 10)

Case 2 '取拾位

getNum = CStr(Int((num Mod 100) / 10))

Case 3 '取佰位

getNum = CStr(Int(num / 100))

End Select

End Function

Private Sub Command2_Click()

Randomize

'随机数

Dim n As Integer

n = int(Rnd  900 + 100)

'逆序数字

Dim b As String

b = getNum(n, 1) & getNum(n, 2) & getNum(n, 3)

MsgBox "原数字： " & n & vbCrLf & vbCrLf & "翻转数字： " & b

End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Do While List1SelCount > 0

For i = 0 To List1ListCount - 1

If List1Selected(i) = True Then

Text1 = List1List(i)

List1RemoveItem (i)

Exit For

End If

Next i

Sleep 3000

DoEvents

Loop

End Sub

Private Sub Form_Load()

For i = 1 To 8

List1AddItem i

Next i

End Sub

题号:1 题型:单选题

内容:

下列选项中不正确的是

选项:

c、当用 Show方法显示窗体时，必定会发生Load事件

题号:2 题型:单选题

内容:

当目录列表框的Dir1Path属性的改变，将会触发下列哪一个事件

选项:

c、Dir1_Change事件

题号:3 题型:单选题

内容:

计时器控件的Interval属性可以设定Timer 事件触发的时间间隔，其时间间隔以下列哪一个为单位

选项:

a、毫秒

题号:4 题型:单选题

内容:

对象的边框类型由下列哪个属性设置

选项:

c、BorderStyle

题号:5

内容:如下运算中运算优先级最高的是：

图形:

选项:

d、^

题号:6 题型:单选题

内容:

在使用MsgBox输出时，如果按钮位置是空（默认参数），则相当于使用了参数

选项:

b、VbOkOnly

题号:7 题型:单选题

内容:

当文本框的ScrollBars属性设置了非零值，却没有效果，原因是

选项:

b、文本框的MultiLine属性为False

题号:8 题型:单选题

内容:

CLS可清除窗体或图形框中下列哪一个的内容

选项:

c、程序运行时产生的图形和文字

题号:9 题型:单选题

内容:

要使某控件在运行时不可显示，应对下列哪个属性进行设置

选项:

b、Visible

题号:10 题型:单选题

内容:

用来设置粗体字的属性是

选项:

c、FondBold

题号:11 题型:是非题 本题分数:5

内容:

当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

选项:

1、 错

--------------------------------------------------------------------------------

题号:12 题型:是非题

内容:

复选框的Value属性为True时，复选框被选中

选项:

2、 对

题号:13 题型:是非题

内容:

窗体、框架、框、图像框都是容器对象

选项:

1、 错

题号:14 题型:是非题

内容:

在属性窗口中可以修改对象的属性

选项:

2、 对

题号:15 题型:是非题

内容:

类是对象的具体化

选项:

2、 对

题号:16 题型:是非题

内容:

文本框控件的MaxLength属性值为0时，在文本框中不可以输入任何字符

选项:

2、 对

题号:17 题型:是非题

内容:

若设置文本框的PasswordChar属性值为某个字符，则用户无论输入何种字符，在文本框中，全部显示为该字符

选项:

2、 对

题号:18 题型:是非题

内容:

程序流程图是唯一一种描述程序执行过程的图形

选项:

1、 错

题号:19 题型:是非题

内容:

If和End If必须成对使用，有一个If就必须有一个End If与之相对应

选项:

1、 错

题号:20 题型:是非题

内容:

VB中建立窗体菜单可以选择“工具”菜单的“菜单编辑器”命令来完成

选项:

2、 对

Private Sub Form_Activate()

'1年期225%，2年期243%，3年期为270%，5年期为288%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 00225, x2 As Double = 00243, x3 As Double = 0027, x5 As Double = 00288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)

Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a c b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

以上就是关于VB题练习题，麻烦各位大神帮帮忙全部的内容，包括:VB题练习题，麻烦各位大神帮帮忙、vb程序设计求前N项代数和例题，急！、VB程序实验题，求具体 *** 作方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！