1
2
3
4
5
6
7
8
9
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
  Dim mypen As New Pen ( Color.Red, Thickness.5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
 
 
End Sub 

1
2
3
4
5
6
7
8
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
   g.DrawLine ( mypen, 20, 30, 200, 60 )
 
 
End Sub 

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

1
2
3
4
5
6
7
8
9
Module Module1
Sub fun ( ByVal ParamArray arr ( ) As Object )
Dim i As Integer
For i = 0 To arr.Length - 1
Console.Write ( arr ( i ) & " " )
Next
End Sub
Sub main ( )
fun ( 1, "Hello", 1.5, 200, 5.55 )
 ...

1
2
3
4
5
6
7
8
9
Module Module1
Class Base
Public Overridable Sub fun1( )
Console.WriteLine ( "fun1 of Base..." )
End Sub
 
Public Overridable Sub fun2( )
Console.WriteLine ( "fun2 of Base..." )
End Sub
 ...

1
2
3
4
5
6
7
8
9
Class sample
    Dim i, j As Integer
    Sub New( )
        i = 0
        j = 0
    End Sub
    
    Sub New ( ii As Integer, jj As Integer )
        i = ii
 ...

1
2
3
4
5
6
7
8
9
Module Module1
    Class sample
        Shared obj As sample
        
        Private Sub New( )
        End Sub
        
        Shared Function create( ) As sample
         If obj Is Nothing Then
 ...

1
2
3
4
5
6
Module Module1
Sub Main( )
dim true as Boolean = False
Console.WriteLine( true )
End Sub
End Module

1
2
3
4
5
6
Module Module1
Sub Main( )
dim true as Boolean = False
Console.WriteLine( true )
End Sub
End Module

1
2
3
4
5
Module Program1
  Sub Main ()
    ;
  End Sub
End Module

1
2
3
4
5
Module Program1
  Sub Main ()
    System.Windows.Forms.MessageBox.Show ("Hello world.")
  End Sub
End Module

1
2
3
4
5
Module Program1
  Sub Main ()
 
  End Sub
End Module

1
msgbox ("guwno")

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...

1
In MySQL, what is the result of "select round(-3.57);"

1
2
3
4
5
6
7
8
9
//Kirk Estlick, Homework 3, Temperature Conversion from Farenhiet to Celcius
 
#include <iostream>
#include <math.h>
using namespace std;
 
int main()
{
        double Farenhiet, Celsius;
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
int main(){
  double Farenhiet, Celsius;
 
  cout << "Farenhiet to Celsius Conversion Calculator" << endl << endl;
  cout << "Enter temperature (Degrees Farenhiet): " ;
  cin >> Farenhiet;
 
 ...

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Message Box "Fuck You"
        End Sub
End Class

1
class="topNavLink tinyman"><a href="http://www.facebook.com/profile.php?id=586083155&amp;ref=tn_tnmn" title="Profile" accesskey="2"><img class="uiProfilePhoto headerTinymanPhoto uiProfilePhotoLarge img" src="http://profile.ak.fbcdn.net/hprofile-ak-snc4/261062_586083155_2343349_q.jpg" alt="" /><span class="headerTinymanName">Rachael McDonnell</span></a></li><li class="topNavLink middleLink"><a href="http://www.facebook.com/find-friends/browser/?ref=tn">Find Friends</a></li><li class="topNavLink middleLink" id="navHome"><a href="http://www.facebook.com/?ref=tn_tnmn" accesskey="1">Home</a></li><li id="navAccount" class="topNavLink"><a id="navAccountLink" href="http://www.facebook.com/editaccount.php?ref=mb&amp;drop" rel="toggle" role="button" aria-haspopup="1"><div class="menuPulldown"></div></a><ul class="navigation" role="navigation"><li><a class="navSubmenu" href="http://www.facebook.com/editaccount.php?ref=mb&amp;drop" accesskey="6">Account Settings</a></li><li><a class="navSubmenu" href="http://www.facebook.com/settings/?tab=privacy&amp;ref=mb" accesskey="7">Privacy Settings</a></li><li><form id="logout_form" method="post" action="/logout.php" onsubmit="return Event.__inlineSubmit(this,event)"><input type="hidden" autocomplete="off" name="post_form_id" value="2189458589aedab39eb4ee4ca448d949" /><input type="hidden" name="fb_dtsg" value="AQCYBpW_" autocomplete="off" /><input type="hidden" autocomplete="off" name="ref" value="mb" /><input type="hidden" autocomplete="off" name="h" value="b6f44ff0bd808fdbe11d8e0179f1defb" /><label class="uiLinkButton logoutButton navSubmenu"><input type="submit" value="Log Out" /></label></form></li><li class="menuDivider"></li><li><a class="navSubmenu" href="http://www.facebook.com/help/?ref=drop" id="navHelpCenter"><div class="clearfix"><div class="lfloat">Help</div><img class="rfloat uiLoadingIndicatorAsync img" src="http://static.ak.fbcdn.net/rsrc.php/v1/yb/r/GsNJNwuI-UM.gif" alt="" width="16" height="11" /></div></a></li></ul></li></ul></div></div></div></div></div></div><div id="globalContainer"><div id="content" class="fb_content clearfix"><div id="mainContainer"><div id="leftColContainer"><div id="leftCol"><a href="http://www.facebook.com/ads/manage/adgroups.php?act=179770198"><div class="uiHeader uiHeaderWithImage mbl"><div class="clearfix uiHeaderTop"><div><h3 tabindex="0" class="uiHeaderTitle"><i style="width:19pxpx;height:19pxpx" class="uiHeaderImage img sp_1qb0a3 sx_845886"></i>Ads and Pages</h3></div></div></div></a><div class="uiHeader uiHeaderTopBorder uiHeaderNav"><div class="clearfix uiHeaderTop"><div><h4 tabindex="0" class="uiHeaderTitle">Account</h4></div></div></div><div class="uiSelector inlineBlock admgrAccountSelector uiSelectorNormal uiSelectorDynamicLabel" id="account_selector"><div class="wrap"><a class="uiSelectorButton uiButton uiButtonSuppressed" role="button" href="#" aria-haspopup="1" data-label="Rachael McDonnell" data-length="30" rel="toggle"><span class="uiButtonText">Rachael McDonnell</span></a><div class="uiSelectorMenuWrapper uiToggleFlyout"><div role="menu" class="uiMenu uiSelectorMenu"><ul class="uiMenuInner"><li class="uiMenuItem uiMenuItemRadio uiSelectorOption" data-label="All Accounts"><a class="itemAnchor" role="menuitemradio" tabindex="0" aria-checked="false" href="#" rel="ignore"><span class="itemLabel fsm">All Accounts</span></a></li><li class="uiMenuItem uiMenuItemRadio uiSelectorOption checked" data-label="Rachael McDonnell"><a class="itemAnchor" role="menuitemradio" tabindex="-1" aria-checked="true" href="#" rel="ignore"><span class="itemLabel fsm">179770198 (Rachael McDonnell, USD)</span></a></li></ul></div></div></div><select><option value="">Rachael McDonnell</option><option value="nav:all_accounts">All Accounts</option><option value="account:179770198" selected="1">Rachael McDonnell</option></select></div><div class="uiHeader uiHeaderTopBorder uiHeaderNav uiHeaderNavEmpty" role="separator"><div class="clearfix uiHeaderTop"><div><h4 tabindex="0" class="uiHeaderTitle"></h4></div></div></div><div id="pagelet_navigation" data-referrer="pagelet_navigation"></div><div class="uiHeader uiHeaderTopBorder uiHeaderNav uiHeaderNavEmpty" role="separator"><div class="clearfix uiHeaderTop"><div><h4 tabindex="0" class="uiHeaderTitle"></h4></div></div></div><input type="text" class="inputtext DOMControl_placeholder UIAdmgrSearch" size="20" autocomplete="off" maxlength="100" id="c4f21f1f0e10120f11932165" name="" value="Search your ads" /><div class="UIAdmgrLeftMenuHelpSection"></div></div></div><div id="contentCol" class="clearfix"><div id="contentArea" role="main"><div id="c4f21f1f0e63073c80718764"><div id="standard_status" class="UIMessageBox UIMessageBoxStatus"  style="display: none;"><h2 class="main_message"></h2></div><div class="global_errors" id="global_error_div" style=""><ul><li>Your advertising account has been closed.  To resume advertising, please <a href="https://secure.facebook.com/ads/manage/reactivate.php?act=179770198">reactivate</a> it.</li></ul></div></div><div class="UIAdmgrPageHeader"><div class="uiHeader uiHeaderPage"><div class="clearfix uiHeaderTop"><div class="uiHeaderActions rfloat"><a class="uiButton uiButtonSpecial" role="button" href="/ads/create/?act=179770198"><span class="uiButtonText">Create an Ad</span></a></div><div><h2 tabindex="0" class="uiHeaderTitle">All Campaigns</h2></div></div></div></div><div class="ads_manager_vat_notice"><div class="pam uiBoxGray"><p>Starting September 2010, Facebook's European headquarters in Ireland will become the primary seller of Facebook ads for some advertisers. As part of this, Facebook needs to ensure your tax information is correct in order to properly determine the application of Irish Value Added Tax 

1
2
3
4
5
6
7
8
9
Imports System
Imports System.Windows.Forms
 
Public Class Test
        Public Shared Sub Main()
                MessageBox.Show("Hello, world!", "caption")
 
        End Sub
End Class

1
2
3
4
5
6
7
8
Imports System
 
Public Class Test
        Public Shared Sub Main()
                MessageBox.Show("Hello, world!")
 
        End Sub
End Class

1
2
3
4
5
6
7
8
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine("Hello, world!")
 
        End Sub
End Class

1
2
3
4
5
6
7
Module Main
  Sub Main ()
    System.Windows.Forms.MessageBox.Show("Hello world.");
 
  End Sub
 
End Module

1
2
3
4
5
6
7
8
9
Attribute VB_Name = "modScenario"
Option Explicit
Option Base 1
 
Private oConfig             As Config
Private oAppErrorObject     As AppError
Private oFX                 As FX
Private oFso                As FileSystemObject
Private dBatchQuoteDate     As Date
 ...

1
2
3
4
5
6
7
8
9
'=========================
'field_CumulateValues.cal
'Author: Ianko Tchoukanski
'http://www.ian-ko.com
'=========================
Static rec As Long
Static dSum As Short
Dim sourceField
'=================
 ...

1
 

1
2
3
4
5
class apples {
public static void main(String args[]) {
System.out.println("rainbow dash is dashing");
}
}

1
 

1
img.Image = Image.FromFile ( "c:\image.jpg" )