VB程序高一版(国外英文资料).docVIP

VB程序高一版(国外英文资料) 2.1 VB language and program development environment Chicken with rabbit cage Private sub command1_click () A = inputbox ( a = , enter the head count) B = inputbox ( b = , enter the number of feet) X = 2 * a - b / 2, Y = b / 2 - Print chicken x =; X, rabbit number y =; y End sub We take the number thats divisible by 3 Private sub command1_click () I = 1, The do If I mod 3 = 0 then print I I = I + 1 Loop until I 100 End sub So lets take the maximum common divisor Private sub command1_click () M = 9147485 N = 5147480 R = m mod n The do while r 0 M = n N = r R = m mod n loop Print maximum common number =; n End sub The area of the circle of radius R Private sub command1_click () Const PI as single = 3.14 Dim r as single, s as single R = inputbox ( r = , input radius) S = PI * r * r Print the area of the circle S =; s. End sub A basic data type 1, integer (integer) such as: 1, 2, 3... ... Long (long integer) such as: 123456789 Single (single accuracy number) : 3.14159Double (double accuracy) : 1.23456 D + 15 Date (time) String (character) Boolean (logical) only has two values: true/false Two, constant and variable 1, the constant Note format: The const constant name as type = expression 2, variables, Note format: Dim variable name as type Operators, functions, and expressions The operator is the arithmetic operator, the string operator, and the logical operator 1, the arithmetic operators: +, -, *, /, ^ \, MOD String operator: Logical operators: and, or, not Function: Function name (parameter table) Expressions: Refers to a certain value rule, which is connected by an operator and a pair of parentheses to manipulate variables, constants, functions, and so on. The sequence structure of the second program The calculation of the living expenses of residents 2-1: according to the national institute of nutrition food recommended by quantitative criteria and some year some county in the rural household survey data, the county rural household food consumptio