daily pastebin goal
64%
SHARE
TWEET

Untitled

a guest Mar 20th, 2019 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub ZapisTabulka()
  2.     ActiveCell = "Ahoj"
  3.     Cells(1, 3) = ActiveCell
  4.     For i = 3 To i + 7
  5.         Cells(i, 1) = "Ahoj jak se mas"
  6.  
  7.     Next
  8. End Sub
  9.  
  10. Sub ZapisTabulka2()
  11.     For i = 1 To 10
  12.     For j = 1 To 10
  13.     Cells(i, j) = 4
  14.     Next
  15.     Next
  16. End Sub
  17. Sub program1()
  18.  
  19.     MsgBox ("ahoj")
  20.  
  21. End Sub
  22.  
  23. Sub program2()
  24.     For i = 1 To 10
  25.  
  26.     Next
  27.  
  28. End Sub
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. Sub program3()
  37. a = 5
  38.     For i = 1 To 10
  39.     MsgBox (" " & i & " x " & a & " = " & a * i)
  40.     Next
  41.  
  42. End Sub
  43.  
  44.  
  45.  
  46. Sub program4()
  47.     a = 10
  48.     MsgBox (" " & " 10 - 5 " & " = " & 10 - 5)
  49. End Sub
  50.  
  51.  
  52.  
  53. Sub program5()
  54.     a = 20
  55.     For i = 1 To 5
  56.     MsgBox (" " & i & " x " & a & " = " & a * i)
  57.  
  58.     Next
  59.  
  60. End Sub
  61.  
  62. Sub program6()
  63.     a = 20
  64.     For i = 1 To 5
  65.     MsgBox (" " & a & " : " & i & " = " & a / i)
  66.     Next
  67. End Sub
  68.  
  69. Sub program7()
  70.     a = 20
  71.     For i = 1 To 5
  72.     MsgBox (" " & a & " + " & i & " = " & a + i)
  73.  
  74.     Next
  75.  
  76. End Sub
  77.  
  78.  
  79.  
  80.  
  81. Sub program8()
  82.     Dim a As Integer
  83.     a = InputBox("Zadej celé číslo")
  84.     For i = 1 To 5
  85.     MsgBox (" " & a & " x " & i & " = " & i * a)
  86.     Next
  87.  
  88. End Sub
  89.  
  90.  
  91. Sub program9()
  92.     Dim a As Integer
  93.     a = InputBox("Zadej celé číslo od 1 do 20")
  94.     If a < 21 Then
  95.     For i = 1 To 5
  96.     MsgBox (" " & a & " x " & i & " = " & i * a)
  97.     Next
  98.     Else
  99.     MsgBox ("zadali jste vetsi cislo nez 20")
  100.     End If
  101.     program1
  102.  
  103.  
  104. End Sub
  105. ¨
  106.  
  107.  
  108.  
  109. Sub aaa()
  110.  
  111. x = InputBox("prvni cislo")
  112. y = InputBox("druhe cislo")
  113.  
  114. If x = 15 And y = 10 Then MsgBox ("cislo x je " & x & (" a cislo y je ") & y)
  115.  
  116.  
  117. End Sub
  118.  
  119. Sub bbb()
  120.  
  121. x = InputBox("prvni cislo")
  122. y = InputBox("druhe cislo")
  123.  
  124. If x = 23 Or y = 5 Then MsgBox ("cislo x je " & x & (" a cislo y je ") & y)
  125.  
  126. End Sub
  127.  
  128. Sub ccc()
  129.  
  130. y = False
  131.  
  132. If y = IsFalse Then MsgBox ("y je " & y)
  133.  
  134. End Sub
  135.  
  136. Sub ddd()
  137. x = InputBox("zadej cislo")
  138. y = 2
  139.  
  140. If x Mod y / 1 Then MsgBox ("cislo x zbyde jen " & y)
  141.  
  142. End Sub
  143.  
  144. Sub eee()
  145.  
  146. x = InputBox("napis cislo 23")
  147.  
  148. If Not x = 23 Then MsgBox ("cislo x neni " & x)
  149. If x = 23 Then MsgBox ("cislo x je 23")
  150.  
  151.  
  152. End Sub
  153.  
  154.  
  155. using System;
  156. using System.Collections.Generic;
  157. using System.Linq;
  158. using System.Text;
  159. using System.Threading.Tasks;
  160.  
  161. namespace OnlineApp
  162. {
  163.     class Program
  164.     {
  165.          static void Main(string[] args) {
  166.  
  167. for (int i=0; i < 3; i++)
  168. {
  169.     Console.WriteLine("Knock");
  170. }
  171. Console.WriteLine("Penny!");
  172. Console.ReadKey();
  173.         }
  174.     }
  175. }
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
 
Top