码迷,mamicode.com
首页 > 其他好文 > 详细

vb入门+vs2010(20180208)

时间:2018-02-08 17:48:24      阅读:136      评论:0      收藏:0      [点我收藏+]

标签:判断   多重判断   string   nta   cas   入门   next   弹出菜单   int   

1.创建窗体

在弹出菜单中选择【添加】---->【Windows窗体】,然后输入窗体名(我都用的默认名),单击完成

2.添加控件

在窗体上添加一个Button按钮

3.添加代码

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

‘-----------------------if多重判断用例--------------------------        

‘ If CInt(TextBox1.Text) > 5 Then        

  ‘     MessageBox.Show("你输入的数大于5")        

  ‘ ElseIf CInt(TextBox1.Text) = 5 Then        

  ‘     MessageBox.Show("你输入的数等于5")        

  ‘ Else        

  ‘     MessageBox.Show("你输入的数小于5")        

  ‘        

 ‘ End If

 ‘-----------------------select case用例-------------------------        

‘Dim a As Integer = CInt(TextBox1.Text)        

‘Select Case a       

  ‘    Case 1, 3, 5, 7, 9       

  ‘        MessageBox.Show("你输入的是小于10的单数")       

  ‘    Case 8 To 12       

  ‘        MessageBox.Show("你输入的是8到12之间的数")       

  ‘    Case 13 To 25       

  ‘        MessageBox.Show("你输入的是13到25之间的数")        

  ‘    Case 31 To 35, Is > 50        

‘        MessageBox.Show("你输入的是31到35之间的数或大于50的数")        

‘End Select

 ‘----------------------for.....next语句用例---------------------       

  ‘Dim i, s As Integer       

  ‘For i = 0 To 100        

  ‘    s = s + i        

‘Next        

‘MessageBox.Show("累计和为" & (s))

 ‘----------------------for.....each语句用例---------------------       

  ‘ Dim i As Integer      

  ‘ Dim a() As String = {"第二章", "语法学习", "学习"}     

    ‘ For Each a(i) In a      

    ‘     MessageBox.Show(a(i))        

  ‘ Next    

End Sub

End Class

今天就写这么些吧!

明天继续!

vb入门+vs2010(20180208)

标签:判断   多重判断   string   nta   cas   入门   next   弹出菜单   int   

原文地址:https://www.cnblogs.com/zzy-123/p/8432098.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!