1. Public Class Form1
2. Dim n, acu As Integer
4. Private Sub BunifuImageButton1_Click(sender As Object, e As EventArgs) Handles BunifuImageButton1.Click
5. Close()
7. End Sub
9. Private Sub BTN_calula_Click(sender As Object, e As EventArgs) Handles BTN_calula.Click
10. n = Val(TXT_n.Text)
13. If (Switch1.Value = False) Then
14. acu = 0
15. For C = 1 To n
17. acu = acu + C
19. Next C
21. la_Res.Text = acu
22. Else
23. acu = 1
24. For C = 1 To n
26. acu = acu * C
28. Next C
30. la_Res.Text = acu
31. End If
35. End Sub
37. Private Sub TXT_n_OnValueChanged(sender As Object, e As EventArgs) Handles TXT_n.OnValueChanged, TXT_edad.OnValueChanged
39. End Sub
41. Private Sub BunifuiOSSwitch1_OnValueChange(sender As Object, e As EventArgs) Handles Switch1.OnValueChange
43. End Sub
45. Private Sub BunifuThinButton21_Click(sender As Object, e As EventArgs)
47. End Sub
49. Private Sub TXT_NUM_ROMA_OnValueChanged(sender As Object, e As EventArgs) Handles TXT_NUM_ROMA.OnValueChanged
51. End Sub
53. Private Sub LB_RES_ROMA_Click(sender As Object, e As EventArgs) Handles LB_RES_ROMA.Click, Label8.Click, Label7.Click, Label6.Click, lab_res_cali.Click, lab_res_primo.Click
55. End Sub
57. Private Sub BTN_ROMA_Click(sender As Object, e As EventArgs) Handles BTN_ROMA.Click
58. Dim n, u, d, c, m As Integer
59. Dim res As String
62. n = Val(TXT_NUM_ROMA.Text)
63. u = 0
64. d = 0
65. c = 0
66. m = 0
67. res = 0
68. If (n <= 3999) Then
69. u = n Mod 10
70. n = Int(n / 10)
71. d = n Mod 10
72. n = Int(n / 10)
73. c = n Mod 10
74. m = Int(n / 10)
76. Select Case m
77. Case Is = "0"
78. res = ""
79. Case Is = "1"
80. res = "M"
81. Case Is = "2"
82. res = "MM"
83. Case Is = "3"
84. res = "MMM"
86. End Select
89. Select Case c
90. Case Is = "0"
91. res = res & ""
92. Case Is = "1"
93. res = res & "C"
94. Case Is = "2"
95. res = res & "CC"
96. Case Is = "3"
97. res = res & "CCC"
98. Case Is = "4"
99. res = res & "CD"
100. Case Is = "5"
101. res = res & "D"
102. Case Is = "6"
103. res = res & "DC"
104. Case Is = "7"
105. res = res & "DCC"
106. Case Is = "8"
107. res = res & "DCCC"
108. Case Is = "9"
109. res = res & "CM"
110. End Select
112. Select Case d
113. Case Is = "0"
114. res = res & ""
115. Case Is = "1"
116. res = res & "X"
117. Case Is = "2"
118. res = res & "XX"
119. Case Is = "3"
120. res = res & "XXX"
121. Case Is = "4"
122. res = res & "XL"
123. Case Is = "5"
124. res = res & "L"
125. Case Is = "6"
126. res = res & "LX"
127. Case Is = "7"
128. res = res & "LXX"
129. Case Is = "8"
130. res = res & "LXXX"
131. Case Is = "9"
132. res = res & "XC"
133. End Select
135. Select Case u
136. Case Is = "0"
137. res = res & ""
138. Case Is = "1"
139. res = res & "I"
140. Case Is = "2"
141. res = res & "II"
142. Case Is = "3"
143. res = res & "III"
144. Case Is = "4"
145. res = res & "IV"
146. Case Is = "5"
147. res = res & "V"
148. Case Is = "6"
149. res = res & "VI"
150. Case Is = "7"
151. res = res & "VII"
152. Case Is = "8"
153. res = res & "VIII"
154. Case Is = "9"
155. res = res & "IX"
157. End Select
159. End If
160. LB_RES_ROMA.Text = res
161. End Sub
163. Private Sub BunifuMetroTextbox3_OnValueChanged(sender As Object, e As EventArgs) Handles TXT_n2_cali.OnValueChanged
165. End Sub
167. Private Sub BTN_calcu_cali_Click(sender As Object, e As EventArgs) Handles BTN_calcu_cali.Click
168. Dim N1, N2, N3, slider, promedio2 As Integer
169. Dim promedio As Double
170. Dim NAME As String
171. N1 = Val(TXT_n1_cali.Text)
172. N2 = Val(TXT_n2_cali.Text)
173. N3 = Val(TXT_n3_cali.Text)
174. NAME = TXT_nom_cali.Text
179. promedio = (N1 + N2 + N3) / 3
180. promedio2 = Int(N1 + N2 + N3) / 3
181. If promedio >= 10.5 And promedio <= 20 Then
182. lab_res_cali.Text = NAME & " APROBADO"
183. ElseIf (promedio >= 21) Then
184. lab_res_cali.Text = NAME & " ERROR"
185. promedio2 = 0
186. Else
187. lab_res_cali.Text = NAME & " DESAPROBADO"
188. End If
190. slider = 5 * promedio2
192. slider_cali.Value = slider
196. End Sub
198. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
200. End Sub
202. Private Sub btn_calcu_primo_Click(sender As Object, e As EventArgs) Handles btn_calcu_primo.Click
203. Dim N, C, ND As Integer
204. N = Val(TXT_num1_primo.Text)
205. ND = 0
206. For C = 1 To N
207. If (N Mod C = 0) Then
208. ND = ND + 1
209. End If
210. Next C
211. If (ND <= 2) Then
212. lab_res_primo.Text = "Es primo"
213. Else
214. lab_res_primo.Text = "No es primo"
215. End If
216. End Sub
218. Private Sub BTNcalcu_Edad_Click(sender As Object, e As EventArgs) Handles BTNcalcu_Edad.Click
219. Dim edad As String
221. edad = Val(TXT_edad.Text)
223. Select Case edad
225. Case Is <= 14
226. lab_res_edad.Text = "Niño"
227. Case Is <= 20
228. lab_res_edad.Text = "Adolecente"
229. Case Is <= 70
230. lab_res_edad.Text = "adulto"
231. Case Is >= 71
232. lab_res_edad.Text = "anciano"
234. End Select
236. End Sub
237. End Class

5 Programas vb