RGB颜色模式是用8位二进制数表示红色、8位二进制数表示绿色、8位二进制数表示蓝色即使用24位二进制数表示一种颜色的模式。若将每位二进制数取反,即(0改为1、1改为0)就会变为另一种颜色,我们称这种方式为颜色反相。小明编写了一个VB程序实现上述功能,在名称为o |
您所在的位置:网站首页 › 5位二进制数能表示的颜色数是 › RGB颜色模式是用8位二进制数表示红色、8位二进制数表示绿色、8位二进制数表示蓝色即使用24位二进制数表示一种颜色的模式。若将每位二进制数取反,即(0改为1、1改为0)就会变为另一种颜色,我们称这种方式为颜色反相。小明编写了一个VB程序实现上述功能,在名称为o |
(2)
请在横线处填入合适的代码。 Private Sub Command1_Click() Dim y As Integer Dim start As Integer ‘考场第1位数据元素的下标 Dim pa As Integer ‘数据库导入VB时学生数据下标 Dim pb As Integer ‘考场座位数据下标 Dim i As Integer, j As Integer, k As Integer, m As Integer start=1 pa=start recCount=x-1 If recCount Mod 30 0 Then ① For i=1 To y ‘将当前考生人数添加到30的整数倍 recCount=recCount+1 sName(recCount)=“” Next i End If For j=1 To recCount / 30 pa=start pb=start For i=1 To 30 kcsName(pb)=sName(pa) pb=pb+1 If i Mod 5=0 Then pa=start+i \ 5 Else ② End If Next i start=start+30 Next j Text1.Text="" start=1 For k=1 To recCount / 30 m=start Text1.Text=Text1.Text+“第”+Str(k)+“考场”+vbCrLf ‘vbCrLf为换行标志符,实现Text1中内容换行显示 For i=1 To 6 For j=1 To 5 Text1.Text=Text1.Text+“”+kcsName(m) m=m+1 Next j Text1.Text=Text1.Text+vbCrLf Next i Text1.Text=Text1.Text+vbCrLf+vbCrLf ③ Next k End Sub Private Sub form_load() Dim myconn As New ADODB.Connection Dim myrecord As New ADODB.Recordset myconn.ConnectionString=“provider=microsoft.ace.oledb.12.0;data source=e:\kaochang.accdb” myconn.Open strsql="select*from三中 " myrecord.Open strsql,myconn x=1 List1.AddItem“考号 姓名” List1.AddItem“--------------” Do While Not myrecord.EOF ‘读取数据库数据,存入数组kh(x)、sName(x)中,代码略 List1.AddItem kh(x)+“ ”+sName(x) x=x+1 myrecord.MoveNext Loop myrecord.Close End Sub |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |