简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | '提供给考生的程序 Dim lenth As Integer, q As Integer Const PI = 3.14159 Private Sub Form_Load() lenth = Line1.Y2 - Line1.Y1 q = 90 End Sub Private Sub Timer1_Timer() q = q - 6 Line1.Y1 = Line1.Y2 - lenth * Sin(q * PI / 180) Line1.X1 = Line1.X2 + lenth * Cos(q * PI / 180) End Sub |
查看答案 |
简答题 | Private Sub Command1_Click() Dim n As Integer, k As Integer, ch As String, a As String n = Len(Text1.Text) ch = "" For k = 1 To n ' a = Mid$(Text1.Text, ? , 1) If Option1.Value = True Then If a >= "a" And a <= "z" Then ch = ch + UCase(a) ElseIf a >= "A" And a <= "Z" Then ' ch = ch + ? Else ch = ch + a End If End If If Option2.Value = True Then ch = UCase(Text1) End If If Option3.Value = True Then ch = LCase(Text1) End If ' Text2 = ? Next k End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub Command1_Click() Text1 = Combo1.Text ' Command2. ? = True End Sub Private Sub Command2_Click() ' Combo1.List( ? ) = Text1 Text1 = "" Command2.Enabled = False End Sub Private Sub Command3_Click() ' ? Text1 End Sub |
查看答案 |
简答题 | Private Sub Command1_Click() ' ? = HScroll1.Value green = HScroll2.Value ' Timer1.Enabled = ? End Sub Private Sub Timer1_Timer() If Picture1.Visible Then red = red - 1 If red = 0 Then ' ? .Visible = False Form1.Picture3.Visible = True End If ElseIf Picture3.Visible Then Picture3.Visible = False If red = 0 Then Picture2.Visible = True red = HScroll1.Value Else Picture1.Visible = True green = HScroll2.Value End If ElseIf Picture2.Visible Then ' green = ? If green = 0 Then Picture2.Visible = False Picture3.Visible = True End If End If End Sub |
查看答案 |
简答题 | Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 'Input #1, ? '1a% Input #1, a% Text1.Text = a% Close #1 End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub Command1_Click() ' Timer1.Enabled = ? End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub HScroll1_Change() ' ? .Interval = HScroll1.Value End Sub Private Sub Timer1_Timer() ' Picture1.Left = ? + 10 End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub Command1_Click() ' For k = 0 To ? If Option1(k).Value Then ' n = ? End If Next k Option1(n).Value = False n = n + 1 If n = 4 Then ' n = ? End If Option1(n).Value = True End Sub |
查看答案 |
简答题 | Private Sub Command1_Click() Dim tmpStr As String * 50 'Select Case ? Case 0 tmpStr = Left(Trim(Text1.Text), 3) Case 1 tmpStr = Right(Trim(Text1.Text), 3) Case 2 'tmpStr = Mid(Trim(Text1.Text), ? ) End Select 'Text2.Text = ? End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Dim num Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ' num = ? If num < 60 Then If Option1.Value = True Then Text2.Text = num Else If (num / 10 = CInt(Int(num / 10))) Then ' Text2.Text = Text2.Text + ? End If End If Else Text2.Text = 0 num = 0 ' Text1.Text = Text1.Text + ? End If End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub Form_Load() Command1.Caption = "开始" Command2.Caption = "停止" Timer1.Interval = 50 Timer1.Enabled = False Label1.Caption = "热烈欢迎" Label1.AutoSize = True Label1.FontSize = 16 Label1.FontBold = True End Sub Private Sub Command1_Click() Command1.Caption = "继续" ' Timer1.Enabled = ? 'Command1.Enabled = ? Command2.Enabled = True End Sub Private Sub Command2_Click() ' Timer1.Enabled = ? Command2.Enabled = False Command1.Enabled = True End Sub Private Sub Timer1_Timer() If Label1.Left < Width Then ' Label1.Left = ? Else Label1.Left = 0 End If End Sub |
查看答案 |
简答题 | Dim an As Integer Dim bn As Integer Dim cn As Integer Dim dn As Integer Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 Do While Not EOF(1) Input #1, a$ s = s & a$ Loop Close 1 Text1.Text = s End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub Command1_Click() For i = 0 To 3 ' If ? = True Then opt = Option1(i).Caption End If Next ' Select Case ? Case "+" Result = HScroll1.Value + HScroll2.Value Case "-" Result = HScroll1.Value - HScroll2.Value Case "*" Result = HScroll1.Value * HScroll2.Value Case "/" Result = HScroll1.Value / HScroll2.Value End Select ' ? = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result) End Sub |
查看答案 |
简答题 | Private Sub Command1_Click() Dim m As Integer, n As Integer Do n = Val(InputBox("请输入月份")) ' Loop Until ? And n < 13 ' Select Case ? Case 1, 2, 3 m = 1 Case 4, 5, 6 m = 2 Case 7, 8, 9 m = 3 Case 10, 11, 12 m = 4 End Select ' Select Case ? Case 1 Text1.Text = Str(n) & " 月份是春季" Case 2 Text1.Text = Str(n) & " 月份是夏季" Case 3 Text1.Text = Str(n) & " 月份是秋季" Case Else Text1.Text = Str(n) & " 月份是冬季" End Select End Sub |
查看答案 |
简答题 | Private Type Tele Name As String * 15 Tel As String * 15 Pos As Long End Type Dim Pers As Tele Dim RecNum As Integer Private Sub Command1_Click() Open "t5.txt" For Random As #1 Len = Len(Pers) RecNum = LOF(1) / Len(Pers) Do Pers.Name = InputBox("请输入姓名") Pers.Tel = InputBox("请输入电话") Pers.Pos = InputBox("请输入邮政编码") ' RecNum = ? ' Put #1, ? asp = InputBox("More(Y/N)?") ' Loop While UCase(asp) ? Close 1 End Sub Private Sub Command2_Click() Open "t5.txt" For Random As #1 Len = Len(Pers) ' RecNum = ? Cls For i = 1 To RecNum ' Get #1, ? Print Pers.Name; Pers.Tel; Pers.Pos Next i Close 1 End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub Command1_Click() Dim i As Integer, j As Integer, iSum As Integer Print "连续和为1250的正整数是:" For i = 1 To 500 ' iSum = ? For j = i To 500 ' iSum = ? If iSum >= 1250 Then Exit For Next 'If iSum = ? Then Print i; " ~ "; j End If Next End Sub |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub HScroll1_Change() ' Text1.FontSize = ? If List1.Text <> "" Then ' Text1.FontName = ? Else MsgBox "请选择字体", , "" End If End Sub |
查看答案 |
简答题 | Private Type Paltype Name As String * 8 Tel As String * 10 Post As Long End Type |
查看答案 |
简答题 | 查看答案 | |
简答题 | 查看答案 | |
简答题 | Private Sub C1_Click() '题目: ' For i = ? To ? ' If Op1(i).? = True Then ' Print "我是" + Op1(i).? ' End If ' Next |
查看答案 |
简答题 | Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ' If Val(?) = 0 Then Text1.Text = "" ' Timer1.? = False ' Text1.? Else Text1.Text = Str(Val(Text1.Text) - 1) End If End Sub |
查看答案 |
简答题 | Private Type PalInfo Name As String * 8 Tel As String * 10 Post As Long End Type Dim pal As PalInfo Private Sub Command2_Click() ch$ = "" For k = 1 To Len(Text1.Text) C$ = Mid$(Text1.Text, k, 1) If C$ >= "0" And C$ <= "9" Or C$ >= "a" And C$ <= "z" Or C$ >= "A" And C$ <= "Z" Then ch$ = ch$ + C$ End If Next k Open App.Path & "\out5.txt" For Output As #1 Print #1, ch$ Close #1 End Sub |
查看答案 |