vb编程题目及答案解析_vb程序例题

Private Sub Form_Click()

vb编程题目及答案解析_vb程序例题

Dim i As Integer, s As Integer

Dim a(10)

Do Until i = 10

i = i + 1

a(i) = InputBox("请输入第" & i & "个学生成绩")

s = s + a(i)

Loop

MsgBox "平均成绩为：" & Format(s / 10, "0.00")

End Sub

1-4：在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一”、“按钮二”的命令按钮（如图1所示）。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上（如图2所示），使两个按钮重合。

private sub cmd1_click()

cmd2.move sub

1-5：在名称为Form1的窗体上画一个命令按钮，名称为Command1，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行是，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。

private sub command1_click()

command1.left = command1.left - 100

end sub

在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300，宽均为800。如图所示。

请在属性窗口中设置适当属性满足以下要求：

1） 窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；

2） 在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。

1)点击窗体，属性里面设置Caption为确认，设置MaxButton=False，MinButton=False

2)点击“是”按钮（c1），设置Default=true

点击“否”按钮（c2），设置cancel=true

1-7：在名称为Form1的窗体上画一个名称为Lab的标签，设置高度为450，宽度为1500，标签上显示内容为“标签”。要求程序运行后，若双击窗体则执行语句Lab.Caption=“双击”，若单击窗体则执行语句Lab.Caption=“”。

private sub form_click()

lab.caption = ""

end sub

private sub form_dblclick()

lab.caption = "双击"

end sub

1-8：在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“书名”和“作者”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。

private sub command1_click()

me.caption = text1.text & text2.text

end sub

1-9：在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。

private sub command1_click()

print text1.text

label1.visible = false

text1.visible = false

end sub

1-10：在名称为Form1的窗体上画一个名称为L1的标签，标题为“口令”；画两个文本框，名称分别为Text1、Text2，都没有

初始内容；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”。在开始运行时，向Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，在Text1中显示所有字符，再单击“以隐藏口令”后，Text1中的字符不变，但显示的都是“？”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，如图所示。

要求：

1） 在属性窗口中，把窗体的标题改为“口令窗口”；

2） 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。

1)点击窗体，设置窗体的Caption为口令窗口，设置text1的passwordchar属性为*

2)

private sub c1_click()

text1.passwordchar=""

end sub

private sub c2_click()

text1.passwordchar="?"

end sub

private sub c3_click()

text2.text = text1.text

end sub

VB程序题目,求答案，急~~~~~~~~

你这小子，是不是在搞自修啊，

我看到你在网上放了无数个类似的题目啦，

这么简单的问题，自己不动脑筋，光求个答案敷衍教师了事啊

建议大家都不要为这点小分误了程序员这个行当

（1）、

Next i

Print a(i)这两句调换一下位置！

（2）、

VB里不一样的地方就是定义的变量的初始植为0

（3）、

按植传递的话，内存为形参和实参分配了不同的地址，形参的改变不影响实参的植，而按地址传递的话，实参和形参公用同一个地址，所以形参一改变，实参也跟着改变！！

不知道我这样讲你是否能明白！！

1、每循环一次 i的值加1 所以循环结束后 i的值为7 因此越界

2、arr定义为整形数组 因此对应项的默认值是0

3、按值传递:原值不改变

按地址传递：原值可以改变

源码在附件中，你可以直接下载打开

第一题：

建立两个窗体并加入按钮，依次点vb菜单“工程” - “工程1属性” “通用” 启动对象设为form2

窗体代码如下：

form1代码：

Private Sub Command1_Click()

Form1.Show

End Sub

form2代码：

Private Sub Command1_Click()

Unload Me

End Sub

第二题：

窗体上放置 command1,text1控件和Option1控件数组，形式如你图所示，代码如下：

Private Sub Command1_Click()

Dim n As Long, s1 As Long, s2 As Long, c As Long

s1 = 1: s2 = 1

For i = 0 To Option1.Count - 1

If Option1(i).Value Then

n = Option1(i).Caption

For j = 3 To n

c = s1 + s2

s1 = s2

s2 = c

Debug.Print j, c

Next

Text1 = s2

Exit Sub

End If

Next

End Sub

Private Sub Command1_Click()

Label1.Caption = "多预习，问题在心中"

End Sub

Private Sub Command2_Click()

Label1.Caption = "认真听，知识记脑里"

End Sub

Private Sub Command3_Click()

Label1.Caption = "多练习，实践出真知"

End Sub

Private Sub Form_Load()

Label1.FontSize = 20

Label1.Caption = "欢迎学习Visual Basic"

Command1.Caption = "上课前"

Command2.Caption = "上课时"

Command3.Caption = "上课后"

End Sub

VB考这些数学题干什么？现在的教育都在误导学生！！！VB应该是用来帮助我们学习的，不是研究什么是素数什么是乘除来乘除去的！无语了！每个学生都要研究这些吗？

答案也很简单，以下代码都是在Command1_Click()中执行。

1.我这个代码应该是你们要的结果，其实代码可以优化的更好玩（暂时不说）。

n = 0

for i = 100 to 666

a = Int(n / 100) '获得百位数，以下分别是获得十位数个位数

b = Int(Int(n / 10) Mod 10)

c = n Mod 100 Mod 10

if (a+b) Mod 10 = c then

print i '这里是在窗体print，具体如何显示结果你看你的试题要求喽。

end if

For j = 2 To Sqr(i)

If i Mod j = 0 Then Exit For

Next j

If j > Sqr(i) Then

'是素数,就累加

n=n+1

End If

next i

print n

2.

for i = 10 to 500 step 2

n = n +1

next i

print n

3.写到这里有点print烦了，什么题目啊，无聊至极

for i = 200 to 1000

if i mod 3 = 0 and i mod 5=0 then

n = n+i

end if

next i

print n

4.算了，这分我拿不下了。太累

Private Sub Command1_Click()

Sum = 0

For i = 2 To 100 Step 2

Sum = Sum + i

Next

MsgBox "1-100之间所有偶数的和为 " & Sum

End Sub

Private Sub Form_Click()

Dim a

a = Val(InputBox("请输入一个数"))

If a = 0 Then MsgBox "你输入的是 零"

If a < 0 Then MsgBox "你输入的是 复数"

If Round(a, 0) < a Then MsgBox "你输入的是 小数"

End Sub