浙江省嘉兴市第一中学学年高一下学期期末考试信息技术试题 Word版含答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
高中精品题库
最新高考模拟题
名校精品试卷
浙江省嘉兴市第一中学学年高一下学期期末考试信息技术试题 Word版含答案
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩5页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢博客访问： 933236
博文数量： 1083
博客积分： 10013
博客等级： 上将
技术积分： 12252
注册时间：
IT168企业级官微
微信号：IT168qiye
系统架构师大会
微信号：SACC2013
分类： C/C++
Visual& Basic(4)
A Babc Ca123 Da.c
ADim BPublic CStatic DPrivate
64+5\6*7/8 Mod 9
A4 B5 C6 D7
A-1 B0 CFalse DTrue
If A>0 Then A=A+1
If A>1 Then A=0
A0 B1 C2 D3
B InputBoxMsgBox
C ListBoxComboBox
D VBDelete
B EnabledFalse
C BorderStyleNone
D ContalBoxFalse
B valueTrue/False
C DblClick
D EnabledFalsevalue(Grayed)
AGotFocus BLoad CClick DKeyDown
16Command1Command2Text1
Private Sub Command1_Click()
Text1.Text = "AB"
Private Sub Command2_Click()
Text1.Text = "CD"
Command2Command1
AAB BCD CABCD DCDAB
18CaptionNEWNameCreate
APrivate Sub MnuNEW_Click() BPrivate Sub Create_Click()
CPrivate Sub NEW_Click() DSub Mnu_Create_Click()
20NameForm1NameText1Text2NameCommand1
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text1Text21234
A12 B34 C46 D1234
21NameText1,
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 10
Sum = Sum + i
Text1.Text = Sum
AText155 BText10
22Command1
Private Sub Command1_Click()
Do Until x = -1
a = InputBox("A")
a = Val(a)
b = InputBox("B")
b = Val(b)
x = InputBox("X")
x = Val(x)
a = a + b + x
A8 B9 C14 D15
23Text1Text2Label1Label2Text24Text1efgABC
APrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Chr(KeyCode - 4)
BPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text + Chr(KeyCode - 4)
CPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
Private Sub Text2_Click(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text + Chr(KeyCode - 4)
DPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
Private Sub Text2_Click(KeyCode As Integer, Shift As Integer)
Text1.Text = Chr(KeyCode - 4)
Option Base 1
Private Sub Form_Click()
Dim a(10), P(3) As Integer
For i = 1 To 10
For i = 1 To 3
P(i) = a(i * i)
For i = 1 To 3
k = k + P(i) * 2
A33 B35 C37 D38
25Command1
Function F(a As Integer)
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
For i = 1 To 3
Private Sub Form_Click()
score = Int(Rnd * 10) + 30
Select Case score
Case Is < 10
Case 10 To 19
Case 20 To 29
Case 30 To 39
End Select
AA BB CC DD
Private Sub Form_Load()
Dim b() As Variant
b = Array(1, 3, 5, 7, 9, 11, 13, 15)
Call search(b)
For i = 0 To 7
Print b(i)
APrivate Sub search(dim a() as Variant )
For i = LBound(a) To UBound(a)
T = a(i): a(i) = a(UBound(a) - i): a(UBound(a) - i) = T
BPrivate Sub search(dim a() as Variant )
Dim J As Integer
J = (LBound(a) + UBound(a)) / 2
For i = LBound(a) To J
T = a(i): a(i) = a(UBound(a) - i): a(UBound(a) - i) = T
CPrivate Sub search(a() As Variant)
For i = LBound(a) To UBound(a)
T = a(i): a(i) = a(UBound(a) - i): a(UBound(a) - i) = T
DPrivate Sub search(a() As Variant)
Dim J As Integer
J = (LBound(a) + UBound(a)) / 2
For i = LBound(a) To J
T = a(i): a(i) = a(UBound(a) - i): a(UBound(a) - i) = T
28Command1Text1
Private Sub Command1_Click()
Dim x, y, z As Integer
Text1.Text = ""
Call p1(x, y, z)
Text1.Text = Str(z)
Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)
A0 B15 CStr(z) D23
29Form1Form2md1F1md1F2Form1Form2md1Func
Public Sub Fun1()
Public Sub Fun2()
Public Sub md1Fun1()
Public Sub md1Fun1()
B Fun1md1Fun1
30CommonDialog1Command1t1.bmp3WMF/BMP/JPG
APrivate Sub Command1_Click()
CommonDialog1.DialogTitle = "t1.bmp"
CommonDialog1.Filter = "(*.wmf)|(*.bmp)|(*.jpg)"
CommonDialog1.FileName = ""
CommonDialog1.Action = 2
BPrivate Sub Command1_Click()
CommonDialog1. FileName = "t1.bmp"
CommonDialog1.Filter = "(*.wmf)|(*.bmp)|(*.jpg)"
CommonDialog1. DialogTitle = ""
CommonDialog1.Action = 1
CPrivate Sub Command1_Click()
CommonDialog1. FileName = "t1.bmp"
CommonDialog1.Filter = "WMF|(*.wmf)|BMP|(*.bmp)|JPG|(*.jpg)"
CommonDialog1. DialogTitle = ""
CommonDialog1.Action = 2
DPrivate Sub Command1_Click()
CommonDialog1. FileName = "t1.bmp"
CommonDialog1.Filter = "WMF|(*.wmf)|BMP|(*.bmp)|JPG|(*.jpg)"
CommonDialog1. DialogTitle = ""
CommonDialog1.Action = 1
1 Fix(-32)+Int(-24)______________
Private Sub Form_ _________()
___________ ("")
4Label1Text1Text2Command1Label1n!+(n+1)! +(n+2)! +
Private Sub Command1_Click()
Dim a, b, c, d As Double
Dim i, n, m As Integer
n = Val(Text1.Text): m = Val(________________)
a = 0: b = 1: c = 0: d = 1
For i = 1 To m
For i = 1 To n
Label1.__________ = a - c
5Combo1Text1
Private Sub Combo1_Click()
Text1.FontName = Combo1.List(Combo1.ListIndex)
Private Sub Form_Load()
With Combo1
.AddItem ""
.AddItem ""
.AddItem ""
.AddItem ""
.ListIndex = 0
Text1._________ = 30
Text1._________ = Combo1.List(0)
6___________
7s____________
Private Sub Form_Click()
Static s As Integer
For i = 1.4 To 2.1 Step 0.6
8Pf.jpgPicture1_______________
9Command1Command2Command1Command2Command2Command1
Private Sub Command2_Click()
____________________________________
Private Sub Form_Load()
____________________________________
1010100~2001002005
Private Sub Command1_Click()
For m = 1 To 10
x = Int(Rnd * __________)
If ____________________ Then
k1 = k1 + x
Print "k1="; k1
BCBDC BCCAA CCDCD ABBAD CABAB BDBBC
5text2.text
11picture1.picture=loadpicture("")
12command1.enabled=true
13command1.enabled=false
15x mod 5=0
阅读(480) | 评论(0) | 转发(0) |
相关热门文章
给主人留下些什么吧！~~
请登录后评论。前3章习题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩9页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢求一道VB题的解答_百度知道【单选题】已知A$=”” 则表达式Val(Left$(A$,4)+Mid(A$,4,2))的值为（ ）
那朵花155nmc
A$=""left(a$,4)="1234" '从左开始起取4个字符mid(a$,4,2)="45" '从第4位开始取2个字符val("123445")=123445 '结果是数字
为您推荐：
其他类似问题
扫描下载二维码}