basic语言编程比赛 编程竞赛语言

关于basic语言编程比赛，编程竞赛语言这个很多人还不知道，今天源源来为大家解答以上的问题，现在让我们一起来看看吧！

basic语言编程比赛 编程竞赛语言

1、建6个text控件，分别命名为text1,text2,text3,text4,text5,text6 。

2、 前5个用于输入a,b,c,d,e 5个数字，第6个用于显示结果序列，记得把第6个文本框的mutiline属性设置为ture。

3、 创建一个按钮，命名Command1，点击开始计算，代码如下：Dim a, b, c, d, resu, s1, s2, s3, s4, coun As LongPrivate Sub Command1_Click()On Error Resume NextText6.Text = ""coun = 0a = Int(Text1.Text)b = Int(Text1.Text)c = Int(Text1.Text)d = Int(Text1.Text)For s1 = 0 To 2 Step 1For s2 = 0 To 2 Step 1For s3 = 0 To 2 Step 1For s4 = 0 To 2 Step 1DoEventsSelect Case s1Case 0resu = a + bCase 1resu = a - bCase 2resu = a * bEnd SelectSelect Case s2Case 0resu = resu + cCase 1resu = resu - cCase 2resu = resu * cEnd SelectSelect Case s3Case 0resu = resu + dCase 1resu = resu - dCase 2resu = resu * dEnd SelectSelect Case s4Case 0resu = resu + eCase 1resu = resu - eCase 2resu = resu * eEnd Selectcoun = coun + 1If resu >= -100 And resu Text6.Text = Text6.Text & "第" & Str(coun) & "个数：" & Str(resu) & Chr(13) & Chr(10)ElseText6.Text = Text6.Text & "第" & Str(coun) & "个数不在-100~100范围内"& Chr(13) & Chr(10)End IfNext s4Next s3Next s2Next s1End Sub。

本文到这结束，希望上面文章对大家有所帮助。