SHARE
TWEET

vbs =

a guest Dec 8th, 2019 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim a(100) As Integer
  3.     Dim n As Integer
  4.     Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lb_ds.Click
  5.  
  6.     End Sub
  7.     ' tên của nút Thoát là cmdexit
  8.     Private Sub cmdexit_Click(sender As Object, e As EventArgs) Handles cmdexit.Click
  9.         If MessageBox.Show("Bạn có muốn thoát không?", "thông báo", MessageBoxButtons.YesNo) = (DialogResult.Yes) Then
  10.             Application.Exit()
  11.         End If
  12.     End Sub
  13.  
  14.     ' tên nút Làm lại là cmdre
  15.     Private Sub cmdre_Click(sender As Object, e As EventArgs) Handles cmdre.Click
  16.         lb_ds.Text = ""
  17.         lb_min.Text = ""
  18.         txtk.Text = ""
  19.         txtnhap.Text = ""
  20.         txtnhap.Focus()
  21.         cmdfind.Enabled = False
  22.         cmdfindmin.Enabled = False
  23.     End Sub
  24.  
  25.     ' tên nút Nhập số là cmdinput
  26.     Private Sub cmdinput_Click(sender As Object, e As EventArgs) Handles cmdinput.Click
  27.         Dim s, t As String
  28.         If IsNumeric(txtnhap.Text) Then
  29.             n = CInt(txtnhap.Text)
  30.             For i = 0 To CInt(txtnhap.Text) - 1
  31.                 t = InputBox("Nhap so", "Thong bao ")
  32.                 a(i) = CInt(t)
  33.                 s = s + " " + t
  34.             Next
  35.             lb_ds.Text = "Dãy số vừa nhập là " + s
  36.             cmdfind.Enabled = True
  37.             cmdfindmin.Enabled = True
  38.         End If
  39.  
  40.     End Sub
  41.  
  42.     'tên nút Tìm số dương nhỏ nhất là cmdfindmin
  43.     Private Sub cmdfindmin_Click(sender As Object, e As EventArgs) Handles cmdfindmin.Click
  44.         Dim min As Integer
  45.         min = 100000
  46.         For i = 0 To n - 1
  47.             If (a(i) > 0) Then
  48.                 min = Math.Min(min, a(i))
  49.             End If
  50.         Next
  51.         lb_min.Text = "Số dương nhỏ nhất: " + CStr(min)
  52.     End Sub
  53.  
  54.     'tên nút Tìm là cmdfind
  55.     Private Sub cmdfind_Click(sender As Object, e As EventArgs) Handles cmdfind.Click
  56.         If IsNumeric(txtk.Text) Then
  57.             Dim count As Integer
  58.             For i = 0 To n - 1
  59.                 If (a(i) = CInt(txtk.Text)) Then
  60.                     count += 1
  61.                 End If
  62.             Next
  63.             Dim s As String
  64.             s = "So phan tu co gia tri bang " + txtk.Text + " la " + CStr(count) + " phan tu tai vi tri :"
  65.             For i = 0 To n - 1
  66.                 If (a(i) = CInt(txtk.Text)) Then
  67.                     s += CStr(i + 1) + ", "
  68.                 End If
  69.             Next
  70.             s = s.Remove(s.Length - 2)
  71.             If (count <> 0) Then
  72.                 MessageBox.Show(s, "Thong bao", MessageBoxButtons.OK)
  73.             End If
  74.         End If
  75.     End Sub
  76. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top