VB程序设计练习题

VB程序设计练习题

目录

文章目录

前言

内容

一、明文密文转换。

二、大小写互相转换。

三、三角形的综合问题。

五、标签左右移动。

六、相邻数加起来为素数。

七、通项分母(累加).

八、判断降序数。

九、产生数组，求最大数。

十、奇偶排序。

总结：

前言

这是我备考技能考的一些VB练习题。（难度稍微有点大哦）

想要更多VB练习题点击我的头像，看我发表我文章就可以看到了。

答案是边肖自己写的，可能有错误。

内容

一、明文密文转换。

在上面的文本框中输入的英文字母（称为”明文")加密，加密结果（称为"密文")显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它们后面第n个字母（"z"后面的字母认为是"a"，"Z"后面的字母认为是"A"），如图所示。

答案：

Private Sub Command1_Click()For i = 1 To

Len(Text1.Text)If Option1.Value = True Thena =

Mid(Text1.Text, i, 1)b = Asc(a) + 1End IfIf

Option2.Value = True Thena = Mid(Text1.Text, i, 1)b = Asc(a) + 3End IfIf Option3.Value = True Thena =

Mid(Text1.Text, i, 1)b = Asc(a) + 5End IfIf b > 122 Thenb = b - 26End IfIf b > 90 And b < 97 Thenb = b - 26End IfText2.Text = Text2.Text & Chr(b)

Next

End Sub

二、大小写互相转换。

如图所示创建界面（一个文本框，一个按钮），程序运行后，单击“转换”按钮，可以text1中的大写字母转换为小写，把小写字母转换为大写。

答案：

Private Sub C1_Click()

For i = 1 To Len(Text1.Text)

a = Mid(Text1.Text, i,

1) ‘一个一个选择text1中的字符

For j = 97 To

122

If a = Chr(j)

Then ‘判断是不是小写字母

f =

‘是的话f=0

Exit

For

‘并且要停止循环，不然会一直循环下去导致f=1。

Else

‘否则f=1，也就是大写字母

f = 1

End

If

Next

If f = 0

Then ‘如果是f=0（也就是字母为小写的情况）

a =

UCase(a)

‘就转大写

End

If

‘结束

If f = 1

Then

‘如果f=1（也就是大写的情况）

a =

LCase(a)

‘就转小写

End If

b = b &

a

‘全部a都赋值给b

Next

Text1.Text =

b ‘te xt1输出b

End Sub

三、三角形的综合问题。

根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出何种三角形，及三角形的周长和面积。要求完成”判断并计算”按钮的如下功能：

1、判断输入的条件是否为三角形，若是三角形则在Text1中显示“是三角形”；在Text2中显示是何种三角形。

2、单击“清除重来”按钮可以将所有的显示框清空，且按钮本身变为不可选取状态。当单击“判断并计算”之后重新恢复为可选状态。

提示:1。三角形存在的条件是任意一边不为0，任意两边之和大于第三边。

2.若一边具有a^2+b^2=c^2，则为直角三角形；若所有边具有a^2+b^2>c^2,则为锐角三角形；若一边具有a^2+b^2

3、三角形的面积公式.已知三角形三边a,b,c，则

（海伦公式）

（p=(a+b+c)/2）

S=sqrt[p(p-a)(p-b)(p-c)]

答案：

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Command2.Enabled = True

If a + b > c And a + c > b And c + b > a Then

Text4.Text = "是三角形"

Else

Text4.Text = "不是三角形"

End If

If Text4.Text = "是三角形" Then

If a ^ 2 + b ^ 2 = c ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Then

Text5.Text = "直角三角形"

End If

If a ^ 2 + b ^ 2 > c ^ 2 And a ^ 2 + c ^ 2 > b ^ 2 And b ^ 2 + c ^ 2 > a ^ 2 Then

Text5.Text = "锐角三角形"

End If